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Ão Leitor 


Os programas shareware tornam-se a cada dia mais sofisticados e 
complexos. Funções que antes só eram obtidas via programas comerciais, 
nos dias de hoje aparecem com muita frequência nesse tipo de produto. 

Mas, a quantidade de programas disponíveis nos BBS e empresas 
distribuidoras, inviabiliza qualquer possibilidade da prática "ver e testar 
tudo”. Foi pensando nisso que, a partir desta edição, estaremos publicando 
uma pequena descrição dos programas mais badalados, encontráveis em 
regime shareware, para que o leitor possa fazer uma seleção prévia do que 
procura. é uma reformulação na seção shareware. 

O objetivo não é ensinar o uso dos programas, mas apenas dar uma idéia 
do assunto do qual ele trata. 


Renato Degiovani 
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Software para área de Finanças 


maior agilidade e qualidade a 
posicão atualizada do seu 
patrimônio. 


A ADP Systems, com ampla 
experiência em produtos voltados para 
área de Recursos Humanose Finanças 
oferecendo soluções tecnológicas em 
módulos integrados de Contabilidade, 
Contas a Pagar, Controle Patrimo- 
nial, Livros Fiscais e Tesouraria, este, 
seu mais recente lançamento. 

Na sua primeira versão, o 
módulo Tesouraria executa todas 
as rotinas da área, permitindo o 
planejamento finenceiro das 
empresas. Atividades como admi- 
nistração de caixas e bancos, 
emissão de cheques, conciliação 
bancária e pagamentos diversos 
são realizada através desse novo 
produto. Além disso, a ADP 
oferece aos clientes assessoria 


Facilitando o comércio de 
materiais de construção 


As lojas que comercializam materiais 
de oonstrução, de pintura e elétrico 
eletrônico, também podem utilizar o 
Prololas, software desenvolvido pela 
HOS - High Quality Services, que 
gerencia e agiliza desde o controle de 
estoque até a comissão dos vendedores. 

O programa foi elaborado para 


“atender a esses usuários, possibilitando 


operações descentralizadas mas 
controladas por uma central de dados 
consolidados. O sistema é personalizado, 
atendendo assim a diferentes ne- 
cessidades de cada empresa. O programa 
roda em ambiente DOS ou Rede, exigindo 
apenas um PC 386. 

O sistema possibilita a visualização de 
relatórios na tela, faz a integração da 
contabilidade gerencial e livros fiscais, 
realiza o acompanhamento orçamentário 
com comparativo entre compras e vendas, 
controla a demanda de mercadorias 
incluindo gerenciamento de estoques, 
preços, contas a pagar e receber. 


permanente de profissionais es- 
pecializados, suporte técnico e 
atualização legal. 


Outra novidade 
implementada pela 
ADP é a leitura 
ótica de código de 
parras no módulo 
Controle Patri- 
monial, que agiliza 
o processo de le- 
vantamento físico 
dos bens da empre- 
sa. Complemen- 
tada pelas ativi- 
dades de levan- 
tamento contábil e 
cotejamento, a em- 
presa receberá com 


BST lança Estabilizadores para Fax 


Desde que começou a ser 
utilizado para facilitar o dia-a-dia 
nas relações de trabalho, o fax 
conseguiu dar enorme agilidade 
na troca de informações. Apesar 
deste notável desenvolvimento 





tecnológico, muitas vezes 
acontece a chamada truncagem de 
texto, im-possibilitando a leitura 
da mensagem recebida. Os vilões 
desta história são as variações de 
frequência na corrente elétrica ou 
na linha telefônica, que já podem 
ser evitadas com de um simples 
aparelho. Trata-se do estabilizador 
eletronico. 

Há dois anos no mercado, a BST — 
Best Service Technology, lança ago- 
ra um protetor para fax com tres 
funções: estabilizador, filtro de 
corrente elétrica e filtro de linha 
telefonica, além de possuir um 
centelhador que fornece proteção 
contra raios. O modelo BST 300 Plus 
pode ser acoplado a qualquer aparelho 
de fax e possui chave trivolt. 

Os estabilizadores eletrônicos 
BST possuem três anos de garantia 
e são vendidos ao consumidor fi- 
nal ao preço de R$ 60,00. 
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ScanNet: proteção anti-vírus em Dose Dupla 


A Compusul está lançando o 
primeiro antivírus dois em um 
do mercado. Trata-se do 
ScanNet, resultado da união das 
duas tecnologias mais eficientes 
na detecção e eliminação de 
vírus—o Netshield, homologado 
pela Novell Inc. como Netware 
Loadable Module, eo ViruScan, 
dono de uma base instalada su- 
perior a 40 milhões de usuários. 
Especialmente destinado a 
ambientes de redes, locais e 
remotas, o ScanNet protege, ao 





* ALTA QUALIDADE. 
* MENOR PREÇO DO BRASIL. 
e GARANTIA TOTAL. 

* ATENDIMENTO 24 HS. 


* PAGUE SOMENTE QUANDO RECEBER. 


mesmo tempo, servidores e 
estações de trabalho contra 4200 
diferentes tipos de vírus, 
incluindo suas variantes 
conhecidas. 


ALERTA 
PROGRAMAVEL 


O ScanNet possui todos os 
recursos para facilitar a vida 
do administrador da rede, 
como checar programas e 
arquivos antes de colocá-los 


INFORMÁTICA LTDA 


* CATÁLOGO IMPRESSO GRÁTIS. PEÇA JÁ O SEU. 
* DICAS E INSTRUÇÕES POR TELEFONE. 


* ACIMA DE R$ 50,00 - 


PAGUE COM 2 CHEQUES. 
* ATENDEMOS TODO O BRASIL. 


* TODO O MATERIAL COM NOTA FISCAL 


Rua Voluntários da Pátria, 608 - Loja 12 


Fone/Fax (051) 221-2559 


CEP 90030-001 - PORTO ALEGRE - RS 


disponíveis aos demais 
usuários ou apenas uma área 
ou volume se-lecionado pelo 
servidor de arquivos. Estes 
rastreamentos podem ocorrer 
de tres modos difetentes: /m- 
mediate é a busca comandada 
pelo console; Periodic, per- 
mite a programação diária, 
semanal ou mensal do 
rastreamento; e on-access, que 
executa a verificação auto- 
mática em todas as operações 
de leitura/gravação de arqui- 






DISQUETES COM GRAVAÇÃO: 
5 DDO=-R$0,90 

5 HO-fA$ 1,20 

3 HDO-R$ 1,60 

DESPESAS CORREIO: 

CADA 20 DISQUETES = R$ »so 


PROGRAMAS PARA TODOS os GOSTOS. 
JOGOS, APLICATIVOS, POR NÔ, SoM, ETC, | 


QUALQUER PREÇO MENOR AO NÓSSO, 
NA REVISTA MICRO SISTEMAS, COBR- | 
MOS E AINDA DAMOS 10% DE DESCONTO 


ist JÁ O SEU PEDIDO. 


vos. Dentre outros recursos o 
programa dispoe ainda de alerta 
amigável, que envia à estação 
contaminada, à tela do console 
do servidor e para uma lista 
configurável de usuários. 

O ScanNeté comercia-lizado 
pelo sistema site license, ao 
preço de R$ 1.070,00 pararedes 
com até 10 nós. Todas as 
atualizações trimestrais são 
gratuitas durante dois anos, que 
éo prazo de vigência do contrato 
de licença. 





e 
Zanthus lança linha Z-9000 

A Zanthus Indústria e Comércio, empresa especializada em automação 
comercial, apresenta a linha de terminais ponto de venda Z-9000em plataformas 
PC. Os terminais PDV modulares Z-9000 atendem ao nove comvênio da 
Legislação e podem ser utilizados em supermercados e lojas de departamentos, 
farmácias e outros. O sistema é composto de quatro módulos: o módulo CPU 
é um 386-DX (opcional 486), de 40 Mhz com 4 MB de memória, floppy 1.44, 
controladora de vídeo com 512 KB, Super IDE, Placa PDV com 128 KB de RAM 
não volátil, memória fiscal de 128 KB e fonte “Nobreakizada”; O módulo 
Monitor/cliente e opearador é composto de monitor SVGA de 14" podendo ser 
color ou monocromático; o módulo Teclado é composto de 43 teclas, com leitor 
de cartão magnético sem visor e display de cristal líquido (2 linhas de 16 
posições) e por fim o módulo Empressor, composto por uma impressora padrão 
R$-232-C de 3 estações que imprime cheque, nota fiscal em folha avulsa, cupom 

fiscal e fita detalhe com 6 modos de impressão programáveis. 
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Frames Avulsos 


Veja como construir um sistema de refresh de imagens em modo 
256, a partir de um buffer na memória 


Renato Degiovani 


Sempre que lidamos com imagens, precisamos definir 
áreas de trabalho, para a manipulação direta dessas 
imagens, com o objetivo de facilitar e agilizar o 
processamento. Isto se faz necessário devido ao fato de 
que, direcionar as operações para a memória de vídeo 
pode comprometer não apenas a velocidade como o 
desempenho geral dos nossos programas. 

Por exemplo, quando vamos carregar uma tela em 
forma de arquivo, se o fizermos diretamente na memória de 
vídeo, podemos produzir animações indesejadas. Não 
existe nada mais triste do que o usuário “assistir” aumatela 
sendo carregada e as cores sendo definidas em seguida. 

Como um dos principais elementos ligados a essas 
questões visuais é o impacto que uma imagem causa ao 
“espectador”, todo processamento que fizermos para 
aumentar esse poder será bem vindo. O que vou descrever, 
nesta edição, é uma das mais velhas e conhecidas técnicas 
para deixar o processamento visual de um programa super 
afinado. 


BUFFER DE VÍDEO 


Uma boa prática, em se tratando de modernas técnicas 
de programação, é trabalhar sempre com uma cópia, na 
memória, da imagem que está sendo apresentada ao 
usuário. Isto ajuda muito a não provocar “borrões” visuais, 
nem flicks quando da montagem de uma imagem. 

Já estamos trabalhando praticamente no limite: da 
velocidade de processamento da nossa placa de vídeo e 
qualquer “extra” irá certamente comprometer o resultado 
visual apresentado no monitor. 

Ão gerarmos uma imagem de forma complexa, por 
exemplo descompactando-a de um arquivo, ou produzindo 
algum tipo de efeito ou filtragem, ou ainda com o uso de 
técnicas de montagem composta, é aconselhável fazermos 
isso num buffer e só depois transferir o resultado para o 
vídeo. À essa transferência costumamos dar o nome de 
refresh de imagem. 
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Como o sistema de bancos da memória de vídeo (veja 
edição 140) também é baseado em segmentos de 64 
Kbytes, um “espelho” da imagem na tela terá praticamente 
o mesmo tipo de programação daquele que seria necessário 
para fazê-lo diretamente. 

Também considerando que na resolução que estamos 
trabalhando, uma tela possui 300 Kbytes, dá folgadamente 
para definirmos nosso buffer na memória principal e com 
isso usufruir da mais alta velocidade de processamento 
possível. 


O REFRESH DA IMAGEM 


Bom, até aqui foi fácil. Vamos então à programação. 
Usaremos seis variáveis definidas na memória para 
estabelecer a posição do quadro a ser transferido para a 
tela (Origem); a posição para onde ele será transferido 
(Destino) e a quantidade de pixeis da largura e da altura do 
quadro. 

Emresumo, definiremos um retângulo, que será mandado 
para a tela, na posição desejada. Por que usar variáveis e 
não registradores? Bem, com isso poderemos com muita 
facilidade criar um processamento paralelo de animação. 
Como? Vamos com calma, que nosso espaço não é muito 
grande... 

Se você deu uma olhada no disco Bitmap 2, então já 
percebeu do que estamos falando. Esta técnica foi usada 
na animação dos planetas, da espada e da máscara do 
faraó.Na rotina listada, não aparece nenhum processamento 
destinado ao buffer de imagem. Se for executada como 
está, provavelmente você não verá nada na tela, ou então 
um retângulo todo borrado. Cabe a você, como exercício de 
criação, colocar alguma coisa no buffer para ser visto na 
tela. 

Algumas sugestões: use a rotina da edição passada 
para mandar a figura para o buffer. Como eu disse, o 
processamento “para o buffer” é quase idêntico ao 
processamento “para o vídeo” e não será nada complicado 
adaptar a rotina DISFIG. 


Até a próxima edição. 








PROGRAMA: REFRESH DE VÍDEO 














































































E mov bx, [Segtel) ;Calcula o segmento 
É correspondente 
E ;Autor: RENATO DEGIOVANI mov dh,0 
4 ;jData: 20/10/94 mov ax, 1000h 
- MODEL small mul dx 
| - CODE add bx, ax 
a JUMPS mov ds, bx 
if INCLUDE ROT-256.ASM mov di, [Endvid] 
E jmp START mov cx, [TmhPy] i Quantidade de linhas a 
4 ;— variáveis do programa —— transferir 
E Segtel dw 0 ; Segmento inicial do buffer de tela FRAMO: 
| OrgPx dwo0 ;Coordenada X da origem push cx 
| OrgPy dw 0 ;iCoordenada Y da origem mov cx, [TmhPx] ; Quantidade de pixels numa 
A DstPx dw 0 ;Coordenada X do destino linha 
a DstPy dwo0 iCoordenada Y do destino FRAMI: 
e TmhPx  dw 0 ;Largura da figura mov al, [si] ; Pega um pixel 
“a TmhPy  dw 0 iAltura da figura inc si ; Próximo endereço 
E i— inicialização — jnz FRAM2  ;Overflow de segmento? 
START: add bx, 1000h ; Próximo segmento (SI 
mov [Endlix],OFFSET Lixo ;Apontador da área estará 
| temporária mov ds, bx ;i igual a zero 
e mov ax, cs ;Usa o próximo FRAM2: 
a segmento de mov [es:di],al ;Coloca no vídeo 
E add ax, 1000h ;64 Kbytes como inc di ; Próximo endereço 
E segmento jnz FRAM3  ;Overflow de banco? 
| mov [Seglix],ax ; temporário de dados inc [Banco] ; Próximo banco 
E add ax, 1000h ;Define o próximo call SETBAN 
| gegmento FRAMS: 
E mov [Segtel],ax ;como buffer de tela loop FRAMI  ;Transfere mais um 
' ;i— procedimento principal mov ax,640 ;Salta para o início da 
E MENU: próxima 
E [Paper],O sub ax, [TmhPx] ; linha 
pe call CLS ;Apaga a tela com a cor 0 add si,ax 
E .. jnc FRAM4 ;Overflow de segmento? 
E [OrgPy],10 ;Linha 10 add bx, 1000h ; Próximo segmento 
E mov [OrgPx],10 ;Coluna 10 mov ds, bx 
E mov [DstPy],20 ;Linha 20 FRAMA4 : 
E mov [DstPx],20 ; Coluna 20 add di,ax 
E mov [TmhPy)],10 ;10 linhas jnc FRAMS  ;Overflow de banco? 
E mov [TmhPx], 20 :20 colunas inc (Banco] ;Próximo banco 
1] call FRAME call SETBAN 
E call GETKEY ;Espera uma tecla FRAMS: 
| jmp ' RETDOS ;Retorna ao DOS pop Cx ;Faz as próximas linhas 
E ;— rotinas de apoio loop FRAMO 
E FRAME: call SEGDADOS 
E mov bx, [DstPy] ;jCalcula o endereço do ret 
pa canto ;Calcula um endereço no vídeo/buffer de tela, a 
E mov di, [DstPx] ; superior esquerdo do partir 
E destino ;do registrador BX = linha e DI = coluna 
| call  LOCCUR 
| mov ([Endvid], di ; Endereço LOCCUR: 
[a mov [Banco], dl ; Banco mov ax,640 ;Tamanho total da linha em pixels 
| ; call SETBAN mov dx,0 
E call VIDEO mul bx ;Multiplica pelas linhas 
E mov bx, (OrgPy) ijiCalcula o endereço do add di,ax  ;Soma com a coluna e com o Carry 
É canto ade dx,0 ;da multiplicação 
5 mov di, [OrgPx] ; superior esquerdo da ret 
E origem ; 
| call LOCCUR Lixo: 
| mov si,di ;SI=endereço db 255,255,255 
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, * Todos os CD-ROMs são originais: chega de problemas de leitura e falta de manual! 
* Ligue e consulte-nos. Temos o melhor preço!, Solicite catalogo com centenas de títulos. 


* Segue-se abaixo uma pequena amostra dos títulos de CD-ROMS disponíveis para venda. 










Configuração minima: 386, 4Mb, drive de CD-ROM e SoundBlaster, 


10 Pak Volume 1(Pacote com 10 CD's) | Cica Windows InfoMagic(3 Cd's) | HomeWorld Gateway ll Myst The 7th Guest 

10 Pak Volume 2iPacote com 10 CD's) | Cinemania 94(Microsoft) INCA If DutPost The Day of the Tentacle ê 
| 3-D Body Adventures CorelDraw 4 Indiana Jones & Fate of Atlantis | Police Quest IV The JourneyMan Project 9 
E Aegis Gardian Critical Path Iron Helix Privateer The LawnMower ManiGame) 9 
E Aladdin and his Lamp Dinossaurs(Microsoft) Lost in Time Ravenloff Tie Fighter al 
E Aldus PhotoStyler Doom Mad Dog McGree Rebel Assault Ultima VII Ê 
E Almanaque Abril Dracula Unleashed Mad Dog Mcfree Il Return to Zork Who Shot Johnny Rock Ê 
E Art Gallery(Microsoft)  Encarta/Microsoft) Mayo Clinic Pharmacist ShubertiMicrosoft) | Windows V3.1 2 
| Battle Isle 2 Exploring Ancient Architecture Mega Race Sim City 2000 Word & BookSheH(Microsoft) É 
| Beethoven 9th Symphony(Microsoft) Great Naval Battles Il Mozart(Microsoft) Strike Commander | Works for Windows/Microsoft) 8 
| BookShelf 94(Microsoft) Hit the Road - Sam & Max Musical Instruments(Microsoft) | TFX World Atlas & 
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SHAREWARE 





A partir desta edição, apresentaremos uma breve 
descrição dos principais programas (nacionais e 
estrangeiros) disponíveis no mercado, em regime 
shareware ou de domínio público. 


ENVISISON PUBLISHER 











REC REC CEC ce Negrito, itálico, es- 
calonamento e rota- 
cionamento são ape- 
nas alguns dos re- 
cursos deste excelente 
programa de editoração 
eletrônica para DOS. 
Ele permite ainda 
controle completo 
** sobre blocos de texto, 
colunas, alinhamento e justificação. O texto pode ser 
digitado diretamente na página de trabalho ou importado 
de outro editor qualquer. 
O programa possui diversas ferramentas de desenho 
tais como: linhas, círculos, curvas, polígonos, quadrados 


O art na MP md a 4 a di PT 


Rm Tm ar 4 


com vários estilos de linhas e textura. Importa gráficos. 


PCX em preto e branco com capacidade de 
escalonamento. Suporta impressora laser, matricial, 
jato de tinta ou Postscript. O uso de um mouse agiliza 
muito a operação deste programa, que roda em qualquer 
tipo de monitor, mas requer disco rígido. Mídia: 1 HD 


TOP DRAW 
É [Ld Ee E Are Forma Node foto ES o as: Um editor de tex- 


ide gráficos, 
cartazes, logotipos, 
mapas diagramas e 
outros desenhos 
quaisquer que 
exijam qualidade. 
qeSto programa é 
in juma opção 
Eca para quem trabalha com editoração 
gráfica usando Windows. O TOP DRAW utiliza todas 
as fontes disponíveis no Windows e, no estilo do 
Corel Draw, trata os gráficos no modo vetorial. 
Importa e exporta arquivos no formato Metafile 
*.MFM. Com o uso dos comandos cut, copy e 
paste, possibilita trocar gráficos com outros 
programas. Possui uma biblioteca com vários 





gos aiii e eo, Epa iai 


desenhos prontos (cliparte). Funções e ferramentas | 


como grid, linhas de guia, rotação, espelhos, zoom 
e outros fazem deste programa um campeão de 
registros. O programa requer monitor EGA ou VGA, 
MS Windows e roda em um micro 386 ou maior. 
Mídia: 1 HD. 
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BCAD 


Programa CAD que permite ao usuário criar 
desenhos na área de engenharia, em duas 
dimensões, baseado nas suas medidas reais. Os 
desenhos podem ser impressos em escala usando- 
se impressoras matriciais, Laserjet e Deskjet. Como 
elementos de desenho o programa inclui: linhas, 
arcos, círculos, pontos e textos. Poderão ser ainda 
especificadas linhas tracejadas e pontilhadas de 
várias espessuras. 

Como ferramentas o programa dispõe de COPY, 
DELETE, SCALE, ROTATE, ZOOM, FILL e MACROS. 
Totalmente compatível com o AUTOCAD o programa 
exporta PCX e DXF e importa PCX. O programa conta 
ainda com um Help on-line e menções no estilo do 
Windows. Roda em qualquer máquina superior a 
286, mas requer monitor VGA e mouse. Mídia: 1 DD. 


AGENDA TIMMING 


Excelente produto do tipo PIMS (Personal 
Information Management System), esta agenda 
permite um planejamento diário das atividades, 
compromissos e gastos financeiros. Em 
Português e sem limitações o programa conta 
com inúmeros recursos adicionais como agenda 
de endereço e telefones, moedas, conversões, 
calculadora comercial, calculadora de tempo e 
calendário. Imprime etiquetas com formato livre 
e contém tabelas para DDD, DDlI, horários, 
calorias, Estados e Capitais , tabela periódica 
dos elementos etc.. 

A Agenda TIMMING permite dar um melhor 
aproveitamento ao seu tempo, organizando e 
planejando todas as suas atividades e substituindo 
plenamente a tradicional agenda de papel. O programa 
requer disco rígido (1,5MB) e roda opcionalmente em 
rede. Mídia: 1 DD. 


PIXFÓOLIO 


Este programa per- 
mite a visualização e a 
catalogação de ima- 
gens em múltiplos ca- 
tálogos. O PIXFOLIO 
contém inúmeras op- 
ções adicionais como: 
imprimir, recortar, ex- 
pandir, alterar a 
coloração ou contraste, diterizar em preto e branco 
etc... 

As imagens podem estar em diversos discos 





e são facilmente localizadas através de redu- 
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ções gráficas no catálogo geral. O programa 
permite gerar sequências animadas com gráficos 
GIF assim como conversões entre os diversos 
tipos. As extensões gráficas suportadas pelo 
programa são as seguintes: 


BMP - Windows Bitmap 


CLP - Windows clippboard file 

DRW/GRF - Micrografx draw and graph files 

EPS - Encapsulated Postscript with imbedded TIFF preview images 
GIF - CompuServe Graphics Interchange Format 

ICO - Windows Icon 

IFF - IFF/LBM (Amiga) used by Computer Eyes frame graber 
IMG - GEM/IMG ( Digital Research ) 

MAC - Macintosh MacPaint files 

PCX - Microsoft Paint e PC Paintbrush 

RLE - Windows Run Length Encoded 

TGA - Targa 

TiFF- Tag Image Format. Most formats including 24 bit color 
VMF - Windows Metafile 


O programa requer MS-Windows 3.x, mouse e disco 
rigido (1MB). Mídia: 1 DD 


YOURWAY 
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- Prendedor de recados 

- Alarme com avisos 

- Discagem telefônica automática 
- Edição de cartas 

- Impressão de envelopes 

- Impressão de etiquetas 


Este programa é uma versão demo funcional e ao 
efetuar o registro o usuário recebe adicionalmente os 
programas Speeler e Thesaurus. O programa requer 
MS-Windows 3.x, mouse e disco rígido (900K). Mídia: 1 
DD 


SF - SISTEMA FINANCEIRO 


Programa para gerenciar as finanças de pequenas e 
médias empresas. Com controle de caixa, contas a 
pagar e receber em forma de extrato. Fluxo de Caixa 
diário, semanal, mensal ou por períodos. Relatório de 
previsões de Pagamentos e Recebimentos, Plano de 
contas com relatórios de balancetes e balanços, inclu- 
sive em dólar. Dirigido por menus, conta também com 
seleção de cores (ex: lançamentos negativos em 
vermelho). O programa vem com manual completo em 


forma de arquivo texto. À taxa de registro é baixa e a 
versão shareware não tem limitações quanto ao número 


de lançamentos a serem efetuados. Sua instalação 


requer disco rígido e suporta mouse. Mídia: 2 DD 


PAGANITZU 


Você é Alabama Smith, iminente explorador e 
arqueólogo, cuja missão é explorar uma pirâmide asteca 
cheia de artimanhas e segredos. Entre estes segredos 
encontram-se a ROSA DE CRISTAL umajóia maravilhosa 
que pode trazer a paz para quem possuíla e a ADAGA 
DE PRATA que confere a quem possuí-la os poderes dos 
Deuses. Viaje através desta pirâmide e tente sobreviver 
a esta aventura pois a única maneira de completar este 
jogo é morrer. | 

Considerado um dos dez melhores programas 
shareware analisados em 1993, a palavra PAGANITZU 
significa “ Templo dos Deuses *. O jogo requer monitor 
EGA ou VGA. 


SOLAR WINDS 


Nesta aventura você é Jack Stone e durante uma 
viagem através de uma galáxia não habitável por 
seres humanos recebe uma missão secreta. No 
decorrer desta missão a história irá se desenvolvendo, 
revelando um enredo tortuoso. Ao longo do jogo você 
irá encontrando alienígenas com os quais terá que 
se comunicar e neste momento qualquer erro poderá 
ser fatal! ? 

Solar Winds recebeu o prêmio “Qualidade 
Comercial” da Epic Megagames em 1993. Jogo 
espacial do tipo Arcade/adventure com excelentes 
gráficos VGA com 256 cores, trilha sonora e feitos 
sonoros/digitais. Suporta mouse, Joystick e Sound 
Blaster e requer disco rígido para a sua instalação. 
Mídia: 1 HD (1.2M) 


BRIX 


Um jogo da Epic Megagames no estilo ação/ 
quebra-cabeças para um ou dois jogadores. Possui 
112 níveis de dificuldade e 100% de pura diversão. 
Em termos de gráficos o jogo possui 256 cores, o 
que dispensa qualquer comentário. Quando usada 
uma placa Sound Blaster (opcional) você perceberá 


a ótima qualidade do som, feito para este jogo. No | 


estilo do Tetris, este novo jogo da Epic Megagames 
guiará você a um dos mais espertos quebra-cabeças 
do universo. 

Shareware de qualidade comercial! Para suacorreta 
instalação este jogo requer monitor VGA-256 cores. 
Mídia: 1 DD 


DOOM 


Dando continuidade ao sucesso do WOLF 3D a 
Apogee lançou o DOOM, com muito mais efeitos e 
recursos. Neste episódio você é um marine muito bem 
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“treinado com a 
“missão de 
resgatar um 
conglomerado 
: multiplanetário 
m Marte. O 
complexo  al- 
tamente radio- 
tivo, foi in- 

vadido por seres 
estranhos e difíceis de combater. O jogo 
totalmente em 3 dimensões, é de muita ação. 
As imagens e cenários do jogo foram feitos com 
256 cores. Usuários que possuem uma placa 
de som aproveitarão a ótima qualidade dos 
efeitos sonoros presentes neste que é 
considerado um dos melhores jogos sha- 
reware do ano. Requer micro 386, monitor 
VGA 256 cores, suporta Sound Blaster e 
Rede Novell. Mídia: 2 HD (1.2M) 











MAJOR STRICKER 


m Você é o co- 
E mandante de um 

a esquadrão espa- 
cial encarregado 
ade defender a 
a terrados Kretons, 
a Os invasores 
espaciais que 
chega-ram oito 
anos após o final 
da Terceira Guerra Mundial. Em cada missão você 
voará sobre duas zonas diferentes e terá que destruir 
o chefe Kreton. No final da quarta missão, você terá 
que defender a Nave Mãe e resgatar os humanos 
presos em tubos de criogênio, à prova de laser. Com 
várias opções para aumentar o seu poder de fogo e 
vários tipos de bônus, o jogo tem tudo para se tornar 
um best-seller. 

Dicas: destrua todos os seus inimigos e ganhe 
bônus; salve o seu jogo frequentemente; não esqueça 
de usar as bombas ZAP. Requer disco rígido e 
monitor EGA ou VGA. Suporta Sound Blaster. Mídia: 
1 HD 





ANIMAL QUEST 


Aprenda brincando as questões do ecosistema. 
Bonitos gráficos em EGA e VGA compõem este jogo 
educacional em forma de aventura. O Objetivo do 


jogo é conduzir, através de uma floresta, vários: 


animais, um de cada vez. Durante a viagem você 
poderá aprender diversas coisas sobre o animal que 
está conduzindo no momento, como por exemplo 
qual o seu alimento e qual o seu predador, assim 
como informações sobre as plantas e outros 
componentes do meio ambiente. Requer monitor 
EGA ou VGA e suporta Sound Blaster. 
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HALLOWEN HARRY 


Este jogo possui 
alguns dos melhores 
gráficos já vistos em 
256 cores. Harry é um 
super herói que pre- 
E cisa salvar o universo 
dos alienígenas que 
transformam os hu- 

aa e manos em escravos e 
zumbis. Para alba esta ER ele precisa entrar em 
uma estação espacial e em cada um dos seus setores 
salvar as vítimas, usando sua armadura protetora e seu 
lança-chamas. 

Além desta arma ele dispõe também de granadas, 
bombas, mísseis e muita munição. Um jogo realmente 
espetacular. 

Suporta Sound Blaster e equi 386 ou mais; 6040K 
e VGA. Mídia: 1 HD 


BIOMENACE 














s Snake Logan, é 
: Um agente da CIA 
à treinado para exe- 
é cutar missões sui 
à cidas. Atendendo a 
à um chamado do 
E quartel general, ele 


masa fica sabendo de 
Ss esc COISAS terríveis que 
estão acontecendo em Metro City. 

Devido a uma invasão de monstros e muitas mortes, 
a cidade foi colocada sob lei marcial. Um pouco antes 
disto acontecer, as autoridades receberam uma 
mensagem de um homem que chama a simesmo de Dr. 
Mangle e que diz que o que está acontecendo em Metro 
é só um exemplo do que vai acontecer ao resto do 
mundo, caso suas exigências não venham a ser 
atendidas. 

Investigando, Snake descobre que o Dr. Mangle é na 
verdade Elmo Whitecliff, cientista de um grande 
laboratório de genética que estava fazendo experiências 
com a transformação de insetos em mutantes enormes 
e inteligentes, quando desaparecera misteriosamente. 

Descobriu-se posteriormente que as experiências 
haviam sido um sucesso e que o DR. Mangle havia 
criado um exército de mutantes. Snake, utilizando um 
avião CESSNA e armado somente com um fuzil MGO é 
atingido e obrigado a fazer um pouso de emergência em 
Metro. A estória só está começando. Suporta Joystick, 
placa de som, mouse, roda a partir de um 286 e requer 
monitor EGA ou VGA. 


MARIA DO CARMO ZATTAR STRUIVING é sócia e diretora de marketing 
da Kanopus Informática, distribuidora de software de dominio público 
e shareware. Com experiência de quatro anos na área, já participou de 
eventos nacionais, sempre com o objetivo de divulgar a cultura de 
shareware no Brasil. 
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Etorcráreo FTA IT 


Requer: 
286/386 - VGA 256 Kb - 


| MS mouse - A: 1.2 Mb PROGRAMAS PARA USO PESSOAL 
L] Graphos Il (versão 5.0)......... este R$ 54,00 






hventura e mistério no 


Requer: 


a | y 
ço PR XX 


[] R.PG............. R$25,00 


EE Er 


Requer: | 
286/386 - VGA 256 Kb - MS mouse 


L] Estratégia... R$ 18,00 









CNE E CO RITEA 


L] Adventure Gráfico (CGANGA).......ma R$ 12,00 









ANGRA d 
Requer: 286/386 - VGA 256 Kb - A: 1.2 Mb 


[] Adventure Gráfico. R$ 12,00 









Assembler sem 


L] Disco 01 (VGA 256 Kb)... E ps 
Ei sair de casa 


L] Disco 02 (SVGA 512 Kb) 







Conheça e aprenda a programação em linguagem 
Assembler, no curso por correspondência da PRO KIT. 


São 10 partes, intercaladas por pequenos testes, enviadas 
uma a uma, com comentários e tira dúvidas por carta. 






JOGOS & AVENTURAS 






Acompanhe esse super lançamento da PRO 
KIT, pelas páginas da revista Micro 
Sistemas e peça o disco com os sistemas de 
edição. | 

Requer: 286/386 - VGA 512 Kb - MS mouse - B: 1.4 Mb 






Autor e orientador: Renato Degiovani 





L] Assembler em 10 partes (CGA)..............R$ 60,00 
[] Assembler em 10 partes (VGA) ......... R$ 100,00 
[) Assembler em 10 partes (SVGA)......... R$ 100,00 
L] Biblioteca SVGA - 256 COFOS....... 







L) Disco ADV-OI....... sessenta R$ 6,00 





Marque com um X a sua opção e envie cheque nominal para a PRO KIT Informática e Editora Ltda, no seguinte 
endereço: Caixa Postal 108.046 - Niterói/RJ - CEP 24121-970 











Nome: 
Endereço: ” 
CEP: ne nas E [] Desejo receber 

RE ES RE Ri GS e Ro too Se maiores informações. 
Data: Valor Cheque Banco o sobre os produtos 
Equipamento: assinalados. 
















CENTRAL INFORMÁTICA LTDA. 


RUA BARÃO DE ITAPETININGA, 88 CONJ.707 - CEP:01042-000 - SÃO PAULO - SP 
TEL.:(011)256-2544 | FAX:(011)259-8430 | BBS:(011)871-2859 


ATENÇÃO 
VERSÃO 94 


Programas originais PC-SIG (U.S.A) com 
documentação completa dentro do disco 


CATALOGO * PREÇOS 
ELETRÔNICO: É * GRAVAÇÃO COM DISCO 
MAIS DE 8.000 APLICATIVOS E a da DO RSI a | 
E JOGOS. 
SOLICITE O SEU, 
MANDANDO UM DISQUETE 
HD OU R$ 1,50 


51/4 HD R$2,20 .... 
TAXA DE CORREIO R$3,00 : 
DESCONTO = 
ACIMA DE 20 DISCOS 1 10% 












































PINTURA E DESENHO 
FANTASY - Cria desenhos coloridos - 01 DD COD. 2420 
FINGER PAINTING PROGRAM — Progr. versátil de desenho e pintura - 01 DD COD. 763 
epa a Crie até 12 ereção de animação pe DR COD. 2360 
E DD COD. 3397/98 
' º ato no COD. 3804 


ASTRONOMIA E EXPLORAÇÃO DO ESPAÇO 


THE NIGHT SKY - Planetário c/ 24.000 estrelas - 04 DD COD. 1796/97/2139/40 
SILICON UNIVERSE —- Simulador cósmico e tutor astronômico - 01 DD COD. 3913 
STARSIDE - Mapa de estrelas de qualquer lugar ou tempo - 01 DD COD. 2180 


QUIMICA, BIOLOGIA E FISICA 
BSIM - Simula sistemas ecológicos - 01 DD COD. 1725 
CHEMICAL — Constrol e glra elementos em 3D - 01 DD COD. 938 
ELECTRON - Para engenharia e sistemas elétricos - 01 DD COD. 1045 


PROGRAMA PARA CRIANÇAS (02 - 10 ANOS) 


1-2-3 TALK - Professor que fala com voz humana - 01 DD COD. 2859 

ABC FUN KEYS - Jogos que ensinam o Abc 6 os números - 01 DD COD. 844 

ABC PAINT - Ensina o alfabeto e as cores - 01 DD COD. 3369 

ABC'S - Ensina o Abc p/ pré-escola e jardim - 01 DD COD. 3078 

THE ANIMATED ALPHABET - Gráficos coloridos c/ animação - O2 DD COD. 2831/32 
ANIMATED SHAPES - Ensina a identificar formas e cores - 01 DD COD. 2640 
CHILDREN'S GRAPHICS - Desenhoss e animação p/ crianças - 01 DD COD. 3224 
CHILDREN'S TUTORS: MATH AND TIME - Tutorial de desenhos p/ pré-escola — 01 
DD COD. 455 

CRAYON BOX - Programa de desenho educacional - 01 DD COD. 3146 

NUMFALL - Jogo de números derivado do Tetris - 01 DD COD. 4183 


ENGENHARIA 
THE ELETRICAL DBS DISK - Database p/ eletricistas, engenheiros e desenhistas — 02 
DD COD. 1977/78 
PC SCHEMATIKCS - Desenha esquemas elétricos, circuitos impressos - 01 DD COD. | AER 
2508 a 


ESTUDO DE LINGUAGENS E POP APS, CR 
ENGLISH-FRANCE TRANSLATOR - Tradutor completo Ingiês-Francês — 04 DD“:£ 
3477/3557/58/59 
RUSSIAN TUTOR - Tutorial de Russo para principiantes - 01 DD COD. aggfi: 


SOUNDBOARD SPANISH - Aprenda a conversar em espanhol - 01 DD... GOD 
ULTIMATE SPANISH - Tutorial p/ Espanhol - 01 DD COD. 3057 


MATEMÁTICA E GEOMETRIA 



























“dt DD COD. 3864 


























: WINDOWS 

“1 BANKING BUDDY - Sistema de contabilidade doméstica - 03 DD COD. 3860/61/62 
ATM FONTS FOR WINDOWS VOL. 1, 2, 3 e 4 — Coleção de fontes ATM - 10 DD COD. 
2961/62/63/64/65/66/67/68/69/70 

FONTER - Fontes em vários formatos - 02 DD COD. 3221/3450 

OKFONTS - Descubra e apague fontes com defeito - 01 DD COD. 3221 

TRUE TYPE FONT INSTALLER - Veja 6 imprima fontes antes de instalar -01 DD COD. 
3809 

KID PIX — Desenhos para crianças - 01 DD COD. 2793 

PICTURE IT WITH SOUND - Cria apresentações com sua própriavoz- 01 DD COD. 3416 
DISKMAN FOR WINDOWS - Gerenciador e catalogador de disquetes - 01 DD COD. 
3393 

OQ TEST - Teste o seu Q.. - 01 DD COD. 3079 

RAFFLE DO - Impressora completa para bilhetes de Rifa - 02 DD COD. 3853/54 
SOFTLINE RESUME — Curriculum Vitae falado para quem procura emprego -01 DO COD. 
3405 

VCATWIN - Sistema para catalogar vídeos - 01 DD COD. 2499 

PHONE BOOK - Método simples de marcar numeros e endereços - 01 DD COD. 3796 
LYRA FOR WINDOWS - Compõe música e imprime pautas - 01 DD COD. 3771 
WINPAK 41 — 8 novos poupadores de tela - 01 DD COD. 3749 

MULTILABEL - Poderoso programa de impressão de etiquetas -02DD COD, 3211/3450 
PRINT ENVELOPE - Preenche todas as suas necessidades de correspondência — 01 
DD COD. 3488 

ROCKFORD! - Excelente para criação de cartão de crédito - 02 DD COD. 3220/3450 











61 
OGLE GRAFICS: HOME/SCHOOL/ANIMALS. 
DD COD. 3689 Es 
OGLE GRAFICS: SPORTS/HOLIDAY/CHILBS ART - 30 clips esportivos - «01 DDCOD. 3688 


PROGRAMAS GRÁFICOS 
EGRAPH - Produz gráficos de engenharia - 01 DD COD. 3099 
EXPRESS GRAPH - Constroi gráficos de vários formatos - 01 DD COD, 1058 
PICTURE LABEL - Imagens Print Shop e Printmaster p/ etiquetas - 01 DO COD. 2550 










ATENÇÃO SOLICITAMOS QUE NOS ENVIEM CÓPIAS "DEMOS" DOS 
PROGRAMADORES! PROGRAMAS PARA DISTRIBUIÇÃO E DIVULGAÇÃO 
















SE ALÉM DE PREÇO, VOCÊ PROCURA: Rr 
— BOM ATENDIMENTO PNR RSDEREE. gome-í 
— HONESTIDADE , O) 
— PROFISSIONALISMO ne 








a ig tp 
É Ia aih Sd Sp Ts a 


* Ea mia - puma (4 di a a vi ada miga 


tatame miifia o ms cromos, age 

















CENTRAL INFORMÁTICA LTDA. 


(O) RUA BARÃO DE ITAPETININGA, 88 CONJ.707 - CEP:01042-000 - SÃO PAULO - SP 
E TEL.:(011)256-2544 | FAX:(011)259-8430 | BBS:(011)871-2859 









4 Central Jnformítica deseja a todos 
Os seus Clientes ce Amígos um Hliz & 
Natal e um Próspero Ano Novo 


















IMPRESSAO 

C2 LABELER - Programa p/ imprimir etiquetas —- 01 DD COD. 3305 
LABEL MAKER - Imprime etiquetas p/ disquetes — 01 DD COD. 284 
LABELS PLUS - Imprime envelopes, etiquetas e postais - 01 DD COD. 2769 
POWER LABEL - Imprime envelopes, etiquetas e cartões - 01 DD COD. 2293 


UTILITARIOS P/ IMPRESSORAS 
LETRACAD - Projeta logotipos e cabeçalhos - 01 DD COD. 1519 
VPRINT - imprime faixas e mais - 01 DD COD. 411 


PROGRAMAS DE CONVERSÃO 
CONVERT - Converte unidades métricas - 01 DD COD. 1183 
UNITS - Calculadora de conversão - 01 DD COD. 1014 


AVIAÇÃO E NAVEGAÇÃO 
LEARANCE FLIGHT PLANNING SYSTEM - Gera rotas e planos de vôo - 031 DD COD. 
2699/70/2701 


CONTABILIDADE/DOMESTICO 
CASH CONTROL - Simplifique sua contabilidade caseira - 01 DD COD. 1986 
CHECKEASE - Gerenciador financeiro pessoal - 01 DD COD. 1877 
FAMTRACK - Orçamento familiar - 01 DD COD. 889 a 


























PAINLESS ACCOUNTING - Programa:de:-ço 
PC PAYROLL - Sistema de Folha « : 










MAPAS 
CARTABASE - Aplicativo poderoso de mapeamento - 01 DD COD. 4187 
EDUCATLAS - Atlas estatístico mundial - 01 DD COD. 4145 
MAPAMUNDI - Cria mapas digitais do mundo - 01 DD COD. 3932 
MAPIT - Mapa Mundi detalhado — 02 DD COD. 3317/18 
VERSAMAP - Desenha mapas detalhados - 02 DD COD. 3637/38 


MATERIAIS DE REFERÊNCIA 


ATLAS OF THE WORLD - Paíse, cidades e continentes - 01 DD COD. 2536 
FLAGS OF EVERY NATION - Mostra bandeira de cada nacão independente - 01 DD COD. 2125 
MEDPAS - Manual de referencia médica - 03 DD COD, 3071/72/73 “ 

RADIO REPAIR - Como restaurar rádios - 01 DD COD. 1432 
THE 21 GREATEST IDEAS IN HUMAN RELATIONS - Curso de Relacões Humanã 
DD COD. 2713 





























CRIAÇÃO DE FORMULÁRIOS 


O RM:- Cria formulários com qualidade profissional - 02 DD COD. 4124/25 
3 COMBO PACK - Pacote c/ centenas de formulários —- 04 DD COD. 4081/82/83/84 


CALCULADORAS DE EMPRÉSTIMOS 


AMORTIZATION TABLE - Calcula pagamento periódico ou mensal - 01 DD COD. 1027 









BBS 
MICRO SERVE - inicie seu próprio BBS - 01 DD COD. 1458 es 
PC BOARD BBS - Popular e poderoso BBS - 04 DD COD. 3328/29/303 Fr 
SAPPHIRE BULLETIM BOARD SYSTEM - BBS pj iniciante - 02 DD cOb::taaa/371 

rn º ZCALC - Calcula qualquer tipo de empréstimo - 01 DD COD. 1055 


CATALOGADORES E ETIQUETADORES. E GERENCIAMENTO PESSOAL 
aeee atra, MANAGING PEOPLE - Curso de Treinamento Pessoal -- 01 DD COD. 1316 


CURRÍCULOS E PROCURA DE EMPREGO 
RESUME MASTER - Gera currículos — 01 DD COD. 2914 
RESUME BEST - Cria currículos com boa aparencia - 01 DD COD. 1097 


GERENCIAMENTO DE VENDAS 


IMPULSE! ONE - Gerenciamento de Vendas e Contatos - 01 DD COD. 3135 
SALETRACK - Rastreia vendas e informações - 02 DD COD, 3053/3203 


PLANILHAS 
AS EASY AS - Planilha sofisticada - 02 DD COD. 751/4096 
POWER SHEETS - Uma das mais poderosas planilhas - 02 DD COD. 1284/85 


WINDOWS 
ABOVE & BEYOND - Agengador para Grupot de Trabalho - 01 DD COD. 3159 
TIME TRAX - Agenda/calendário - 01 DD COD, 3835 
LYRA FOR WINDOWS - Compoe músicas e imprime pautas - 01 DD COD. 3771 
LOCK UP - Senha. Protege seus icones - 01 DD COD, 3474 
MAGIC SCREEN SAVER - Poupador de tela - 01 DD COD. 3045 
MOUSE WARP - Utilitário pf mouse com múltiplas funcões —- 01 DD COD. 3636 
WINPACK 41 - Oito novos poupadores de tela - 01 DD COD. 3749 




































CONTABILIDADE, FATURAMENTO 
GIST - Faz faturas e demosntrativos de contas - 01 DD COD. 2468 


THE INVOICER WITH ACCOUNTS RECEIVABLE - Faturas/Contas vencidas - 01 DO COD. 
1348 
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Os Cuidados Com o 
Hardware — Parte 2 


Conheça os problemas mais comuns dos equipamentos e aprenda 
como mantê-los em bom estado de funcionamento 


Laércio Vasconcelos 
EEE es 


Certa vez vi na TV a propaganda de uma impressora que 
podia cair no chão e mesmo assim continuar funcionando. À 
impressora era mostrada em queda livre, totalmente entregue 
aos cuidados da força da gravidade, levando um tombo, 
quicando no chão várias vezes até parar. Será que as 
impressoras, os monitores e os computadores foram feitos 
para serem jogados no chão ? Ou talvez seria necessário 
que as pessoas que trabalham com informática tenham um 
mínimo de cuidado com os equipamentos sofisticados que 
utilizam ? Na minha opinião (espero que também seja a sua) 
os equipamentos que utilizamos merecem os cuidados que 
sempre temos com outas máquinas, como veículos, 
eletrodomésticos, material de fotografia, etc. Algumas regras 
simples devem ser seguidas nesse sentido. 


a) Proteger o computador do sol. Coloque o computador em 
um local onde o sol nunca o atinja, em nenhuma hora do 
dia. A ação do sol faz com que, após algum tempo, o 
computador apresente defeitos, além de fazer muito mal 
aos plásticos. 


b) Proteger o computador da água. Mantenha-o longe de 
janelas pois um dia você poderá sair e esquecer a janela 
aberta. Qualquer chuva será suficiente para molhá-lo. Se 
não tiver seus circuitos secos imediatamente, a água 
provocará corrosão dos contatos elétricos. Se o 
computador for ligado com seus circuitos molhados, um 
curto-circuito será inevitável. 


c) Proteger o computador da poeira. Mais adiante veremos 
o que pode ser feito em relação ao assunto. Esta é outra 
razão para manter o computador longe das janelas. Perto 
da janela existe uma maior quantidade de poeira, que é 
altamente prejudicial ao computador. 


d) Proteger o computador da umidade. A umidade está 
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sempre presente no ar e a longo prazo provoca maus 
contatos. Mais adiante veremos como proteger O 
computador contra a umidade. 


e) Nunca conectar nem desconectar nenhum periférico com 
o computador ou o periférico ligado. Por exemplo, para 
conectar ou desconectar uma impressora, tanto a 
impressora como o computador devem estar desligados. 


f) Manter os cabos de ligação dos periféricos sempre 
aparafusados. Cabo da impressora, cabo do monitor e 
cabo do MOUSE são exemplos de cabos que possuem 
parafusos para fixação dos seus conecetores. 


g) Quando o computador ou um periférico for desligado, 
deve-se esperar três segundos antes de ligar novamente. 
“Alguns usuários realizam em caso de panes ou “travadas” 
do software a tradicional operação “DESLIGA-E-LIGA”. 
Devem passar a usar a operação “DESLIGA-ESPERA 3 
SEGUNDOS-E-LIGA”. O mesmo é válido para todos os 
periféricos, principalmente a impressora. 


h) A mesa onde o computador fica instalado deve estar 
sempre limpa e isenta de poeira. 


i) Nunca beber café ou algo similar perto do computador. 


j) Não fumar perto do computador. 


k) Nunca puxar um cabo pelo fio, e sim, pelo conector. 


|) Manter os disquetes em local fresco e seco. 
m) Não comer perto do computador. 


n) Não bater com força nas teclas. Se você respeitar esta 
regra, aumentará a vida útil do teclado. 


o) Não ligar e desligar o computador diversas vezes durante 
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O dia. Ligue de manhã e mantenha-o ligado durante o dia, 
mesmo que não esteja usando. Desligue-o apenas quando 
não for mais usá-lo no dia. Isso contribui para aumentar a 
vida útil dos chips e da fonte de alimentação. 


p) Não exagere na intensidade ou brilho da tela do monitor. 
Deixe o monitor regulado de forma adequada ao uso. 


q) Não deixe o monitor “parado” com uma tela muito clara. 
Quando não estiver usando, deixe em fundo preto ou 
diminua a intensidade. Existem programas que apagam 
automaticamente a tela depois alguns minutos sem 
nenhuma tecla acionada (SCREEN SAVER). É muito 
recomendada a utilização de tal prática. 


—-+ 


Use umaiinstalação elétrica adequada. Evite emaranhados 
de fios, benjamins, etc. Use tomadas de três pinos (fase, 
neutro, terra). Não ligue o PC junto com eletrodomésticos, 
na mesma tomada. 


S) Nunca reaproveite fitas de impressora adicionando mais 
tinta, pois tal prática, com o passar do tempo, danifica as 
agulhas de impressão. 


COMO PROTEGER O COMPUTADOR DA AÇÃO DA 
POEIRA 


À poeira é muito prejudicial ao computador. Pode ser a 
causadora de vários defeitos sérios, entre os quais podemos 
citar: 

a) Mau contato nos conectores e nos soquetes dos chips do 
computador e de seus periféricos 

b) Defeitos mecânicos nos drives 

c) Erros de leitura, ao sujar as cabeças dos drives 

d) Mau contato no teclado 

e) Problemas mecânicos na impressora 


Felizmente todos esses problemas podem ser evitados 
com uma manutenção preventiva adequada. Essa 
manutenção preventiva é extremamante fácil de serrealizada. 
Basta adotar as seguintes medidas: 


1) Uso de capas plásticas 
2) Limpezas semestrais 


Acapa plástica pode ser adquirida facilmente em lojas de 
suprimentos de informática. Devem ser adquiridas capas 
para o gabinete, monitor, teclado e impressora. É 
importantíssimo que a capa seja plástica. Não serve a capa 
de tecido, pois acumula muita poeira e deixa passar a 
umidade para o computador. Também não devem ser 
usadas capas de tecido revestido por plástico. A capa deve 
ser 100% de plástico, nada de tecido. Enquanto o 
microcomputador não estiver ligado as capas devem ser 
colocadas. Isso reduz drasticamente a quantidade de poeira 
no interior do equipamento. 


É um erro pensar que a maior parte da poeira entra 
quando o computador está ligado, pois quando está desligado 
não existe o sistema de ventilação puxando o ar. Isso é 





errado, pois mesmo sem a entrada de ar causada pelo 
sistema de ventilação, a poeira fica sempre viajando pelo ar, 
tentando se distribuir de maneira uniforme. 

Quando o computador é desligado e a ventilação para, a 
poeira do seu interior é depositada sobre seus circuitos. Isso 
faz com que o ar do interior do computador fique com menos 
poeira. Imediatamente as partículas de poeira do meio- 
ambiente passam a entrar por todas as frestas existentes no 
gabinete. Basta observar o interior de um aparelho de 
televisão. A televisão não possui nenhum sistema de 
ventilação e mesmo assim fica muito empoeirada 
internamente. A poeira não precisa de convite para entrar. 
Qualquer fresta ou orifício é suficiente para que seja 
estabelecido um fluxo de poeira que se acumula no interior 
do equipamento. A capa plástica é a única forma de evitar 
este fluxo. 

Ão contrário do que muitos pensam, não é necessário 
esperar alguns minutos com o computador desligado antes 
de colocar as capas. Podem ser colocadas imediatamente, 
logo após desligá-lo. As capas devem ser limpas 
semanalmente, por dentro e por fora, com um pano 
ligeiramente úmido. O mesmo deve ser feito com a parte 
externa do gabinete, teclado, impressora, monitor e com a 
mesa onde o computador está instalado. 

Mesmo com o uso da capa plástica, uma certa quantidade 
de poeira ainda entra no computador, nos períodos em que 
o equipamento está ligado. Obviamente não podem ser 
usadas capas com o computador ligado, o que causaria um 
super-aquicimento dos seus componentes. Portanto, a capa 
plástica não impede totalmente que a poeira entre no 
computador, pois a poeira entrará nos períodos em que 
estiver ligado. Esta poeira precisa ser regularmente limpa. 


Você pode solicitar a visita de um técnico de confiança 
para fazer uma limpeza total de poeira, a cada seis meses. 
Se você não sabe montar e desmontar o computador, é 
desaconselhável que você próprio realize esta limpeza. Este 
é o caso de muitos leitores que trabalham exclusivamente 
com software, e querem cuidar bem do computador, mas 
sem abrí-lo e desmontá-lo. Mas se você é um dos leitores 
que quer ir um pouco mais longe, se você leu meu livro 
“COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 
386/486”, entãojá é capaz de desmontar e montar novamente 
seu computador. Nesse caso, você mesmo pode, a cada 
seis meses, desmontar o computador para fazer a limpeza 
de poeira. 

Se você não estiver disposto a fazer esta limpeza 
semestralmente, pode fazê-la com intervalos maiores, como 
por exemplo, uma vez por ano. Mesmo assim, seu computador 
estará em situação muito melhor que a maioria dos 
computadores, que NUNCA são limpos. 

A capa plástica ideal é aquela que cobre o computador por 
todos os lados. Infelizmente existem no mercados muitas 
capas plásticas paragabinetes tipo “torre”, que são totalmente 
abertas na parte traseira. A razão disso, segundo as 
confecções, é para que a capa não atrapalhe os fios que 
estão conectados na parte traseira do computador. 


A verdade é que, com a parte traseira do computador 
totalmente aberta, haverá um grande fluxo de poeira e 
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umidade entrando no computador. Se você não acredita, 
experimente abrir um saco de biscoitos, deixando-o aberto 
por uma noite inteira. No dia seguite, todos os biscoitos 
estarão moles, e não apenas o que estava exposto. Capas 
plásticas que deixam a parte traseira do computador aberta 
servem apenas para evitar que o exterior do computador 
fique empoeirado. Caso você não esteja encontrando uma 
capa que cubra também a parte traseira do computador, o 
jeito é comprar duas capas e costurar ou colar uma na outra 
para que a parte traseira fique também vedada. 

Uma outra dificuldade é encontrar capas para gabinetes 
torre tamanho médio (midi tower) e grande (full tower), já que 
os gabinetes minitorre são predominantes. A solução é 
adquirir uma capa para monitor de 17”, que serve 
perfeitamente para gabinetes midi-tower, ou uma capa para 
monitor de 20", que serve para gabinetes full tower. Se 
mesmo assim existir dificuldade, também podem ser 
contratados os serviços de uma costureira. 


COMO PROTEGER O COMPUTADOR DA UMIDADE 


Além de poeira, a umidade é uma grande causadora de 
maus contatos. Um computador pode apresentar defeitos 
após um ou dois anos de uso caso não sejam tomadas as 
devidas provicências. A mistura de poeira com umidade é 
ainda mais nociva para o computador. Substâncias existentes 
na poeira, como o enxofre, produzem acidez ao entrarem em 
contato com a umidade. A “poeira ácida” pode provocar 
defeitos no computador em uma questão de alguns meses. 
Já vimos o que fazer para proteger o computador contra a 
poeira. Agora veremos o que fazer em relação à umidade. 
Trata-se de um problema muito sério em regiões litorâneas 
ou florestais. Para combater a umidade são usadas as 
seguintes armas: 

1) Capas plásticas 

2) SÍLICA GEL 

3) Limpezas anuais com SPRAY LIMPADOR DE 

CONTATOS 


A capa plástica, além de proteger o computador da poeira, 
protege também da umidade. Além disso é necessária para 
que a ação da SÍLICA seja eficaz. A sílica é uma substância 
sólida, com o aspecto similar a areia branca. Também pode 
ser encontada na forma de pequenas pedras azuis, do 
tamanho de grãos de arroz. Possui a propriedade química de 
atrair para si toda a umidade ao seu redor, ou seja, é uma 
substância “HIGROSCÓPICA”. Normalmente produtos 
sensíveis à umidade possuem em suas embalagens um 
pequeno saquinho com sílica. É o caso de câmeras 
fotográficas, material de uso hospitalar e placas eletrônicas. 
Muitas placas de computador chegam ao Brasil quase 
sempre sem este saquinho de sílica, pois os “exportadores” 
eliminam as caixas e os manuais para ocupar menos 
volume. 

A sílica pode ser adquirida em casas de material químico. 
No Rio de Janeiro é encontrada na Casa B. Herzog (rua 
Miguel Couto, 131 tel 2337948). Pode ser adquirida em 
embalagens de vários tamanhos: 120 gramas, 500 gramas 


e até 1 kg. 120 gramas é uma quantidade suficiente para um 
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computador, teclado, gabinete e impressora, mas talvez seja 
mais econômico adquirir pacotes de 500 ou 1000 gramas'e 
dividir com amigos. j 
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figura 5 - Preparando os saquinhos de sílica 


A quantidade recomendada de sílica é 1.Kg para cada 
metro cúbico de ar do recipiente a ser protegido. Usando as 
medidas típicas de um gabinete de PC (50 cm x 40 cm x 15 
cm) determinamos seu volume: 0,5'mx0,4mx0,15M= 
0,03 metro cúbico, o que indica que são necessários 30 
gramas de sílica. Podemos dividir o saquinho de sílica em 
três partes iguais para o gabinete, monitor e impressora. 
Podemos usar uma quarta porção bem menor para proteger 
o teclado. Bastariam 3 gramas para o teclado. Façamos 
então 4 pacotes de sílica. Os pacotes devem ser feitos de 
papel poroso, como um guardanapo ou coador de café, 
ambos de papel. Não devem ser usados sacos plásticos, 
pois o plástico isolaria a sílica do ambiente, impedindo a sua 
ação. 

Os pacotes devem ser embrulhados e fechados com 
cola. Poderia ser usada a fita durex para fechar os saquinhos, 
mas em muitos casos a fita se desprende com o tempo, 
espalhando sílica no interior do computador. Os saquinhos 
devem ser colocados no interior do gabinete, do monitor, da 
impressora e do teclado, como mostra a figura 6. 

Nevem ser presos com uma fita adesiva bem firme em um 
local qualquer, desde que seja longe da fonte e longe dos 
circuitos. O calor da fonte faz a umidade ser expuisa da sílica. 
No gabinete, o pacote pode ser colocado, por exemplo, 

















figura 6 - Pacotes de sílica instalados 
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preso ao gabinete, debaixo dos drives. No monitor, preso a 
uma “parede” interna do seu gabinete. O mesmo pode ser 
feito com a impressora. No teclado, em qualquer lugar do seu 
interior que não atrapalhe as teclas. 

O ideal é colocar os saquinhos de sílica presos no interior 
do gabinete, do monitor, do teclado e da impressora. 
Entretanto, muitos usuários não têm intimidade suficiente 
com o hardware para abrir o equipamento e instalar a sílica. 
Neste caso, duas soluções podem ser tomadas. A melhor 
delas é contratar um técnico de confiança para colocar a 
sílica no interior do equipamento. Este técnico poderia fazer 
uma visita semestral para trocar (ou reciclar) a sílica, limpar 
a poeira e fazer uma limpeza geral de contatos, de 6 em 6 
meses. 

Uma outra solução que não é tão boa, mas é aceitável, e 
simplesmente não colocar a sílica no interior dos 
equipamentos, e sim, presos estrategicamente em sua parte 
externa. Por exemplo, os saquinhos de sílica podem ser 
presos na parte lateral da base do monitor, na parte traseira 
do gabinte, na parte traseira da impressora e na parte 
traseira do teclado. Ao serem colocadas as capas plásticas 
sobre o equipamento, a sílica passa a absorver a umidade, 
com uma intensidade quase igual à da sílica que estaria 
colocada no interior dos equipamentos. 

















figura 7 - Ação da sílica e capa plástica 


Quando o computador está ligado a sílica passa a absorver 
a umidade ao seu redor. Boa parte da umidade que atacaria 
as placas fica agregada à sílica. Quando o computador é 
desligado e é colocada a capa plástica, a umidade continua 
a ser absorvida até que desaparece quase totalmente. A 
umidade continua a entrar por baixo das capas plásticas, 
mas em uma quantidade muito pequena. A figura 7 compara 
a quantidade de umidade em três computadores: (A) sem 
capa e sem sílica; (B) sem capa e com sílica; (C) com capa 
e sílica. As setas indicam a entrada de umidade. Os pontos 
representam a concentração de umidade no ar. Como 
podemos ver, o uso de sílica sem as capas plásticas não traz 
quase proteção alguma ao equipamento. O único computador 
da figura 7 que está realmente protegido é o (C), onde são 
usadas simultaneamente a sílica e as capas plásticas. 

Depois de alguns meses a sílica fica SATURADA. Isto 





mais. Quando isso acontece, a sílica branca passa a ficar 
amarelada, e a sílica azul fica rosada. Normalmente isso 
ocorre depois de 6 meses. Em locais onde a umidade relativa 
do ar é muito grande (onde chove muito, orla marítima, 
regiões florestais), a saturação ocorre antes, por exemplo, 
em 3 meses. 

Uma vez saturada, a sílica deve ser substituida por nova 
ou reciclada. Para fazer a reciclagem, coloca-se toda a sílica 
em um recipiente de vidro usado para assar alimentos no 
forno. Liga-se o forno médio e uma vez quente coloca-se a 
sílica no recipiente de vidro, deixando a porta do forno 
ligeiramente aberta para que a umidade saia. O calor fará 
com que a água acumulada evapore totalmente. A sílica 
volta a ter sua cor original e está pronta para mais 6 meses 
de uso. Esse processo pode ser repetido a cada 6 meses, ou 
seja, você compra a sílica uma vez e passa a usar por anos 
seguidos. 

Infelizmente a sílica não consegue eliminar totalmente a 
umidade. Uma pequena quantidade ainda sobra e ataca os 
contatos elétricos. A diferença é que, com o uso da sílica e 
capas plásticas, ao invés de surgir mau contato depois de 2 
anos, surgirá depois de 5 anos ou mais. Para melhorar mais 
ainda a situação e fazer com que o mau contato causado 
pela umidade NUNCA ocorra, deve ser feita anualmente 
uma limpeza geral de contatos. Desmonta-se o computador, 
realiza-se a eliminação da poeira e usa-se o spray limpador 
de contatos para limpar conectores, soquetes, “pemas” de 
chips, teclado, etc. 

Esta limpeza pode ser feita por um técnico de confiança, 
ou por você mesmo, caso seja capaz de abrir, desmontar o 
computador para fazer a limpeza, e montá-lo novamente. Se 
você quiser realizar esta tarefa, pode encontrar as informações 
necessárias no cap. 12. 


O CALOR E O AR-CONDICIONADO 


Muitas pessoas perguntam se o computador realmente 
necessita estar localizado em um ambiente com ar- 
condicionado. O condicionador de ar realmente é benéfico 
para o computador por três razões; 


1) Evita o aquecimento excessivo dos circuitos 
2) Reduz a umidade excessiva do ar 
3) Filtra a poeira existente no ar 


As vantagens oferecidas pelo ar-condicionado, descritas 
acima, são altamente desejáveis para o computador. Mas o 
funcionamento em ambientes sem ar-condicionado é 
perfeitamente possível e seguro, desde que cuidados 
apropriados sejam tomados. Já vimos como reduzir os 
efeitos da poeira e da umidade, usando a sílica e capas 
plásticas. Esses dois agentes são perfeitamente capazes de 
suprir a ausência do ar-condicionado. São importantes 
mesmo em ambientes com ar-condicionado, pois a ação 
conjunta da capa plástica, sílica, limpezas e condicionador 
de ar é ainda mais eficaz. 

Na ausência de condicionador de ar o único problema que 
pode ocorrer apesar do uso da sílica e capas plásticas é o 
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aquecimento excessivo. Todo chip é capaz de funcionar 
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bem até uma determinada temperatura! máxima. Os 
fabricantes de chips sempre publicam em seus manuais 
técnicos, a máxima temperatura que seus chips podem 
suportar. Alguns chips suportam apenas 60: 1€, outros 
chegam até 75[1C, outros podem chegar até 90 'C. Isto 
pode parecer que o computador pode funcionar 
tranquilamente no calor de 43/:C de Bangu, mas isto não 
é verdade. Esta temperatura máxima que o fabricante 
anuncia não é a temperatura ambiente, e sim, a 
temperatura no interior do chip. O interior do chip sempre 
é mais quente que o interior do computador, que por sua 
vez, é sempre mais quente que o ambiente. O seguinte 
exemplo ilustra bem essas temperaturas: 


Caso 3: 
C ambiente a 43º€ 


Ambiente: 43º€ 
Computador: 53º€ 
Chip: 68'€ 


















Caso 2: 
ambiente a 30º 


Caso 1: 
ambiente a 22º€ 











Ambiente: 22ºC 
Computador: 32ºC 
Chip: 47ºC 


Ambiente: 30º€ 
Computador:40º€ 
Chip: 55º€ 















Cada grau adicional na temperatura ambiente 
corresponde a um grau a mais na temperatura do 
chip. Em um CPD com ar-condicionado, a 22º€, ou 
em uma residência, sem ar-condicionado a 30º C,o 
interior dos chips está a uma temperatura segura, 
mas em um local muito quente, com um ambiente a 
43ºc, o interior dos chips pode estar a uma 
temperatura de 68ºc, o que pode ser prejudicial para 
a maioria dos chips do computador. 

Observe nos exemplos da tabela acima que existe uma 
diferença constante de 10ºCentre atemperatura ambiente 
e a temperatura do interior do computador. No caso, O 
interior do computador está sempre 10ºC mais quente 
que o ambiente. Esta diferença varia muito de um caso 
para outro, e depende da eficiência do sistema de ventilação 
do gabinete do computador. Em um gabinete com uma 
excelente ventilação, existe uma diferença muito pequena 
entre o interior e o exterior do computador, e em 
consequência, os chips aquecem menos. Vejamos três 
exemplos com a temperatura ambiente de 30ºc: 


Caso 2: . | Caso 3: 
Ventilação normal Ventilação péssima 


Ambiente: 35º€ 
Computador: 55ºC€ 
Chip: 80º€ 









Caso 1: 
Excelente 
ventilação 






Ambiente: 35!C 
Computador: 40º€ 
Chip: 55ºC 


Ambiente: 35º€ 
Computador:45º€ 
Chip: 60ºC 












Os computadores possuem um ventilador que puxa O 
ar pela parte frontal do gabinete, resfriando os chips e 
saindo pela parte traseira. Infelizmente, alguns fabricantes 
de gabinetes colocam entradas de ar muito pequenas, 0 
que impede um bom fluxo de ar. Provavelmente esses 
fabricantes pensam que as fendas existentes na parte 
frontal do gabinete são apenas para a saída do som do 
alto-falante, e por isso as fazem tão pequenas. Se você 
coloca a mão nessas fendas de ventilação e sente o 
“vento” entrando no gabinete, significa que a ventilação é 
boa. Uma outra providência a ser tomada para melhorar 
a ventilação é não deixar a parte posterior do gabinete 
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muito próxima da parede, o que dificulta a saída do ar 
quente. Deve ser deixada uma distância de, no mínimo, 
15 cm. 

Se você está qualificado a abrir o gabinete do seu 
computador, pode ainda fazer algo que irá melhorar mais 
ainda a ventilação interna do computador. Abra o gabinte 
e procure arrumar os CABOS FLAT (os cabos que 
conectam os drives e o winchester às suas placas 
controladoras) de forma que fiquem paralelos ao fluxo de 
ar. O fluxo de ar vem da parte frontal do gabinete e val em 
direção à fonte de alimentação. Quando os CABOS FLAT 
têm uma orientação transversal ao fluxo de ar, fazem com 
que o sistema de ventilação opere com mais dificuldade, 
aumentando assim a temperatura interna do gabinete, e 
em consequência, a temperatura interna dos chips. 

É importante que os chips não operem em temperaturas 
elevadas. Com o aquecimento, diminui a confiabilidade 
dos chips, e o computador poderá apresentar aquele 
defeito que os usuários chamam de “congelada” (apesar 
do calor). Além disso, um chip que opera com temperatura 
excessiva tem a sua vida útil reduzida. Por exemplo, um 
microprocessador 486 pode “queimar” após um ano de 
uso se sua temperatura for muito elevada. 

Determinados chips operam com temperaturas muito 
elevadas, e uma ventilação ruim pode ser prejudicial. Entre 
eles, podemos citar: 


— Microprocessadores 486DX de 25 até 66 MHz, lançados 
até meados de 1994 


— Microprocessadores PENTIUM de 60 e 66 MHz, lançados 
até meados de 1994 


Se o seu computador possui algum desses chips, 
cuidados redobrados devem ser tomados. É muito 
oportuna a instalação de um segundo ventilador, que 
deve ser preso no próprio microprocessador. Esses 
ventiladores custam entre 10 e 20 dólares. Esses 
chips aquecem muito pois são extremamente rápidos 
em relação à tecnologia disponível na época de seu 
projeto. 


Em meados de 1994, foram lançadas versões mais 
avançadas, que além de serem mais rápidas, consomem 
uma corrente muito menor, resultando em um menor 
aquecimento. Sempre existirão chips que se aquecem 
excessivamente, e sempre serão aperfeiçoados no sentido 
de reduzir o aquecimento. É possível que você adquira 
um computador equipado com um microprocessador 
PENTIUM operando a 150 MHz, mas com um aquecimento 
5 vezes menor que o produzido pelos microprocessadores 
486DX2-66 lançados até meados de 1994. 


Enfim, o ar-condicionado não é um elemento 
estritamente necessário ao funcionamento do computador. 
Se o microprocessador não apresentar um aquecimento 
excessivo, e se o sistema de ventilação do gabinete for 
adequado, é quase certo que o computador poderá 
funcionar bem a uma temperatura ambiente de até 35%, 
sem o ar-condicionado. 


[2282-9, Conta 5.520 - 4 ou Banco Unibanco, Agência 0098, Conta 121.879 - 5 em nome de Alex Soft Entretenimento e Locação Ltda., os depósitos 


ALEX SOFT INFORMÁTICA 


R. Pedro de Toledo, 967 / 2 - V. Mariana - S. Paulo/SP - CEP 04039-032 (Próx. Est. Sta. Cruz do Mêtro) 


Fone / Fax |aravens ADD (O Dis > goserçpe vagina sa 
(011) 570-1478 escoa 
























Grav. em 5 /4 HD (c/ Disquete) : R$ 1,70 
Correio (à cada 20 Disquetes) : R$ 2,30 
:00 às 18:30, Sábado das 10:00 às 15:00, por Fax recebemos seu 


og : por 
ódigo, o Nome e o Número de Disquetes de cada Programa Desejado. Não esqueça de adicionar a taxa de Correio. 
: 1-) CHEQUE NOMINAL: à Alex Soft Entretenimento e Locação Ltda. ou 2-) DEPÓSITO : Banco Bradesco, Agência 
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Solicite nosso Catálogo Eletrônico Completo, enviando-nos 1 disquete 5 /« DD ou R$ 0,50. 
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O FRIO 


O frio excessivo também é prejudicial ao computador. Não 
faz mal à parte eletrônica mas faz à parte mecânica. Quando 
o computador está em um ambiente com condicionador de 
ar muito forte, deve-se ligá-lo e esperar cerca de 5 minutos 
antes de começar a trabalhar. Caso isso não seja feito, 
poderão ocorrer erros de leitura do drive e do winchester. Isto 
ocorre porque, estando o computador muito frio, os braços 
que contém as cabeças de leitura e gravação estão 
ligeiramente encolhidos devido ao frio. Em consequência, os 
dados serão gravados em regiões ligeiramente deslocadas 
em relação às trilhas originais, o que causará erros de leitura 
posteriores. Nem sempre este efeito ocorre, mas não custa 
nada tomar esta pequena precaução nos ambientes gélidos 
de alguns CPDs. 

Existem pessoas que trabalham em ar condicionado e ao 
término desligam o ar e abrem as janelas. Muitos 
computadores localizados em residências ficam no quarto. 
O usuário dorme com o ar-condicionado ligado e ao acordar 
desliga-o a abre as janelas. Isso tudo é péssimo para O 
computador. 

Experimente colocar um copo seco dentro de uma 
geladeira, deixar ficar bem gelado e depois retirá-lo. Uma vez 
exposto à umidade do ambiente o copo fica inteiramente 
molhado. Sua temperatura baixa condensa a umidade que 
o cerca. Se o computador ficou um certo tempo no ar- 
condicionado, seus circuitos e conectores ficaram 
“geladinhos”. O ambiente estava seco enquanto o 
condicionador de ar estava ligado. Quando as janelas são 
abertas a umidade entra no recinto e é atraída por tudo o que 
está frio. O computador atrai a umidade, que é acumulada 
em suas partes metálicas, provocando uma “oxidação 
precoce”. Nem a sílica consegue evitar o problema. Se você 
vai desligar o condicionador de ar da sala onde o computador 
está, faça-o da seguinte forma: 


1) Mantenha o computador ligado 

2) Desligue o ar-condicionado 

3) Espere 30 minutos 

4) Pode abrir as janelas (se for necessário) e desligar O 
computador 


Dessa forma, ao serem abertas as janelas o computador 
não estará mais gelado e não condensará a umidade do ar. 
Uma forma fácil de seguir esta regra é simplesmente desligar 
o ar-condicionado meia hora antes de terminar o expediente. 
Este hábito é bom também para você, pois evita que pegue 
resfriados e gripes. 

Um aluno meu mantinha o computador no seu 
quarto, logo abaixo do ar-condicionado. Dormia com 
o ar ligado e de manhã abria a janela e saía para O 
trabalho. O computador atraía a umidade do ar. 
Depois de alguns meses o computador não 


funcionava mais. Ao abrir o computador, observou. 


que todos os seus contatos internos, como “pernas” 
de chips, soquetes, slots, etc. estavam cobertos por 
uma grossa camada de óxido. Os conectores de 
borda das placas eram “esfarelados” à medida que 
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tentava-se raspar a sua ferrugem. O computador foi 

direto para o lixo. Este prejuízo poderia ser facilmente 

evitado se o rapaz fizesse o seguinte: 

a) O computador não deveria ficar diretamente abaixo do ar- 
condicionado | 

b) O condicionador de ar deveria ser desligado meia hora 
antes das janelas serem abertas 

c) O uso da capa plástica e de sílica também evitariam a 
entrada da umidade no computador 


CHOQUE TÉRMICO E AVALANCHE ELÉTRICA 


Além do calor excessivo e do frio excessivo serem 
altamente prejudiciais, existe um outro grande 
inimigo do computador. É a brusca variação de 
temperatura, ou seja, uma mudança rápida de frio 
para quente. A mudança inversa também é prejudi- 
cial mas não ocorre na prática. O alto fluxo de calor 
causado no instante em que o computador é ligado 
é causado porque seus circuitos estão inicialmente 
em uma baixa temperatura e subitamente são 
percorridos por correntes que elevam sua tem- 
peratura até o normal. A rápida variação de 
temperatura causa o chamado “CHOQUE TÉRMICO”. 
Ao longo do tempo, o choque térmico contribui para 
a diminuição da vida útil dos componentes 
eletrônicos. 

Você já observou uma lâmpada sendo queimada 
? Normalmente as lâmpadas não queimam depois 
de algum tempo acesas, e sim, no instante em que 
são ligadas. Sua temperatura é, em menos de um 
segundo, elevada de 30 C para mais de 1000 C. 
Essa é a hora em que a lâmpada mais sofre. Chega 
um ponto em que não aguenta o sofrimento e produz 
um “clarão” no instante em que é ligada e queima. O 
mesmo ocorre com os componentes eletrônicos. No 
instante em que o computador é ligado a temperatura 
interna dos chips e transistores é elevada de 30 C 
para cerca de 50 C (ou mais, dependendo do chip). 
É uma diferença de temperatura pequena mas mesmo 
assim prejudicial. A coisa é um pouco pior quando O 
computador está em um local com ar-condicionado 
pois a variação de temperatura é ainda maior. Duas 
precauções devem ser tomadas para minimizar os 
efeitos do choque térmico. 


1) Se possível, ligar o computador antes de ligar o ar- 
condicionado. 
2) Evitar ao máximo ligar e desligar o computador. 


Quando o computador é ligado em uma temperatura 
não muito fria o choque térmico é menor. Uma vez ligado 
o computador, liga-se o ar-condicionado que diminuirá 
lentamente a temperatura fazendo com que o computador 
não passe pelo sofrimento de variar a temperatura interna 
de seus chips de 18 C para 50 C. Deve-se pre: 
ferencialmente ligar o computador de manhã, no início do 
expediente e deixá-lo ligado o dia todo, mesmo que não 
esteja em uso. Desligue-o ao final do expediente. Assim 











o computador sofrerá apenas um choque térmico por dia, 
no instante em que é ligado. Ao ser desligado não existe 
choque térmico porque a variação de temperatura é mais 
lenta. Se for necessário desligá-lo na hora do almoço, 
faça-o. Mas tenha em mente que sofrerá duas vezes por 
dia, ao invés de uma só. 

Não vá exagerar com esse cuidado. Soube do caso de 
uma certa firma em que o computador ficava ligado 24 
horas por dia, pois o operador foi informado que era ruim 
para o computador ligá-lo e desligá-lo várias vezes. Uma 
certa noite a energia elétrica apresentou problemas. A 
energia faltou e voltou várias vezes. Quando isso acontece 
a cabeça do winchester bate várias vezes na superfície. 
O resultado é que dados eram perdidos no winchester 
com o aparecimento de vários setores defeituosos. Os 
dados foram todos perdidos e foi necessário formatar o 
winchester. 

Tomando os cuidados necessários com o choque 
térmico, não ocorrerão problemas de componentes 
“Queimados” por essa razão. E as memórias são os 
componentes mais sensíveis ao choque térmico porque 
consomem uma grande quantidade de corrente no instante 
em que são ligadas, fazendo a sua temperatura subir de 
forma mais acentuada. 

Além do choque térmico, existe um outro agente nocivo 
aos componentes no instante em que o computador é 
ligado: a AVALANCHE ELÉTRICA. Ao ser ligado o 
computador, estabelece-se uma alta corrente elétrica em 


DOS 6.0 PASSO A PASSO 

Fita de Vídeo - 110 minutos de duração. 
Iniciantes e "experts" recebem os fundamentos básicos do mais 
recente utilitário que acompanha o MS-DOS 6.0, destacando- 
se DEFLAG, Anti-vírus, etc. Completa e didática apresentação 
deste mais vendido sistema operacional. 
CÓD. 0032 (Nível Completo) 


WINDOWS 3.1 PASSO A PASSO 

Fita de Vídeo - 110 minutos de duração. 

Em linguagem clara e objetiva, ensina como instalar e executar 
as janelas deste poderoso e atual programa. 

COD. 0033 (Nível Básico) R$ 39,90 


R$ 39,00 


WORD 2.0 FOR WINDOWS 

Fita de Vídeo - 60 minutos de duração. 

Com facilidade se aprende a utilizar Edição, Alinhamento, 
Mover, Copiar, Imprimir, deste atualizado e eficiente 
Processador de Textos. 

CÓD. 0008 ( Nível Básico) R$ 39,00 
DOMINANDO O CLIPPER 

Fita de Vídeo - 60 minutos de duração. 

Ensina a operar e construir programas de Cadastro de Clientes, 
Banco de Dados, Faturamento, Contas a Pagar, etc, mostrando passo 
a passo os comandos deste compilador. 
CÓD. 0036 ( Nível Básico) R$ 39,00 


COMO COMPRAR: 

1 - Despesas postais, inclusas. 2 - Atendimento dos pedidos através: 

a - Cheque anexo ao pedido ou b- Vale Postal Ag. 400009 SP 

DISTRIBUIDORA NACIONAL DE ELETRÔNICA 
FONE: (011) 227-8733 

Av. Ipiranga, 1147 (esq. Sta. Efigênia) - CEP 01039-000 - São Paulo - SP 


Aprenda informática sem sair de casa! 


todos os seus circuitos, e também nos motores de drives, 
winchesters e impressoras. Essa alta corrente tem uma 
duração muito reduzida, inferior a um segundo, mas após 
o computador ser ligado e desligado alguns milhares de 
vezes, muitos chips e motores podem ser danificados. 

O problema é sério, tanto é que os fabricantes de chips 
costumam especificar a vida útil de seus produtos em 
“START/STOPS”, ou seja, quantas vezes o componente 
pode ser ligado e desligado. A avalanche elétrica e o 
choque térmico sempre ocorrem conjuntamente, no 
instante em que o computador é ligado, e são responsáveis 
por muitos defeitos “misteriosos” no computador. À solução 
para o problema, como vimos, é ligar o computador no 
início do expediente e deixá-lo ligado até o seu término, 
ou no máximo, desligá-lo também durante o horário de 
almoço. 


LAÉRCIO VASCONCELOS é Engenheiro Eletrônico e 
autor dos livros: Como Montar seu Próprio PC; Conserte 
Você mesmo o seu PC; Arquitetura do PC: Dicas e Macetes 
de Software. 












ierosott EXCELL 4.0 - BASICO 
Fita de Vídeo - 80 minutos de duração. 
4 São mostrados e informados os comandos básicos do EXCELL, 
que permite criar Planilhas, Fórmulas, Textos, Gráficos, desta 
excelente e moderna ferramenta. 
COD. 0036 (Nível Básico) R$ 39,00 


DOMINANDO PAGE MAKER 

Fita de Vídeo - 75 minutos de duração. 

Mostra de maneira clara como utilizar este poderoso Editor 
Eletrônico, a partir dos seus comandos iniciais podendo montar 


desde um boletim até uma revista. 
COD. 0014 (Nível Básico) R$ 39,00 


ACCESS 

Fita de Vídeo - 80 minutos de duração. 

De maneira prática, objetiva e compacta, se aprende o uso 
deste avançado e eficiente Banco de Dados da MICROSOFT, 


com as instruções de uso, passo a passo. 
COD. 0041 (Nível Básico) R$ 39,00 


PROGRAMANDO EM '"'C' 

Fita de Vídeo - 120 minutos de duração. 

E demonstrado tudo que é necessário à construção de programas 
em "C" utilizando o compilador BORLAND C++, versão 3.1. 


EXCELL 
4.0 











PROGRAMANDO 





EM Programas simples até sofisticados arquivos, fontes, bibliotecas, 
É etc, são possíveis de serem construídos com este poderoso 
compilador. 
CÓD. 0031 (Nível Completo) R$ 39,00 









VANTAGENS QUE VOCÊ OBTEM COM AS VÍDEO-AULAS: 
Aprende sem sair de casa. Professor está disponivel a qualquer hora. 
Você esclarece qualquer dúvida, voltando e repetindo a fita. 

Baixo custo, grande valor nos conhecimentos adquiridos. 

Explicações com riqueza de pormenores e detalhes. 

Facilidade em consultas, podem ser feitas em qualquer momento. 
Aprende-se de maneira fácil e com enorme grau de assimilação. 
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CLASSIC SOFT 


RUA JOÃO CORDEIRO, 495 - FREGUE 


FAÇA SEU PEDIDO: Por telefono, fax ou carta. 

FORMAS DE PAGAMENTO: 

A) SEDEX à cobrar, você só pagará quando retirar o pedido no correio da sua cidade. 
B) CHEQUE NOMINAL À CLASSIC SOFT LTDA, para sua comodidade e economia recomendamos fazer 9 
pedido por cheque cheque nominal pois você recebe seu pedido em casa. 

C) DEPÓSITO BANCÁRIO: Banco do Brasi - - 89. 0887-4 - conta 4798-8 em nome de Classio Softs Unibanco - ag. 
pc conta 113 444-4 em nome de Classic Soft « Bradesco - ag 117-1 - - conta 98741-7 em nome de Claseio Soft - 
erwiando xerox do depósito junto ao pedido. 
orador titan (Registrada) pedidos até 18 discos.....R$2,80 di À 






















TEL /FAX (01 1) 875-4644 


SIA DO Ó - SÃO PAULO - CAPITAL - CEP 02960 


PROMOÇÕES PC 


10 Jogos ou aplic. ganhe um grátis c/ disco. 
50 Jogos ou aplic. ganhe 10 grátis ci disco 


























DISCO 5 1/4 HD C/ GRAV.........0000.. R$ 2,00 
DISCO 5 1/4 DD C/ GRAV.............. R$ 1,50 
PARA COMPRA ACIMA DE 20 DISCOS 
PAGAMENTO EM DUAS VEZES: 

metade no ato, metade para 15 dias após. 


















APLICA TIVOS DE njo UIÍNI£O, PUBLICO E SHAREWARE PARA PC/XTIAT 










AO91O 


















W0239 1DD 
W0238 1DD 
WH253 1HD 
wWo2to IDO 
woz37 10D 
WwH230 1HD0 
WH231 1H0 
W0268 1DD 
Ww0z54 1DD 
w0255 1DD 
WhH264 1DD 
W0236 DD 
AH820 HD 
W0240 1DD 
W0256 1DD 
W0269 1DD 
w0235 1DD 
wW0234 1DD 
WhH258 1HD 
WH265 2HD 
wW0233 1DD 
W0259 1D0 
W0260 1DD 
Wwo262 1DD 
WH261 1HO 
Wo263 tDD 
W0232 1DD 
W0245 1DD 
w0251 100 
W0250 1DD 
W0267 DD 
W0z49 100 
Wozas4 1DD 
woza? DD 
WhH248 1HMD 
woz42 2DD 































































Ao928 DD 
AD925 DD 
Ao924 DD 
Ao922 DD 
AH923 HD 
AHB26- 1HD 
AH928 HD 
AH929 1H0 
AO842 DD 
AO936  1DD 
Ao932 10D 
AO933 DD 
Ao844 DD 
AO9I4 DD 
AO813 DD 
AOB15 DD 
AO921 DD 
AoBo7 DD 
AO935 DD 
AOBOS DD 
AM931 HD 
AO628 ADD 
AH930 HD 
AO639 DD 
Ao814 DD 

































AMBS8 1HD 
AOB59 DD 
AoB6O ADD 
AO861 DD 
Ao857 DD 
AD855 2DD 
ADB54 1DO 
AOo853 10D 
Aog52 1DD 
Ao850 1DD 
AH951 HO 
AO849 tOD 
AO848 DD 
AOB4? DD 
AOB46 1DD 


ADVENTURE TOOL KIT - para criar ds cond: 


COD. Q/D HouFimeRC ção 


ABOVE & BEYOUND - administra informações pessoais. 
ANIMATE FOR WINDOWS - Imagens animadas. 
ASTRONONY CLOCK - horas astronômicas e mundiais. 
ASTRONONY LAB - gera eventos astronômicos simultâneos. 
BANG BANG - Jogo de estratégia para 2 Jogadores. 

BIZ WIZ - calculadora financeira. 

BMP COLECTION 1 - pacote de telas SMP. 

BMP COLECTION 2 - mais telas. 

BOD FOR WINDOWS - Jogo de raciocínio com palavras. 
BOX PLOT - calcula a frequência de resposta do falante. 
BUILDER - cria Icones para documantos. 

CAD VANTAGE - poderoso cad para windows. 

CHEMICAL FOR WINDOWS - modelo de moléculas em 3d. 
EXPLOS!V WINDOWS/DOS - fontes graficas p/ monitor. 
FINANCIER PLUS - organiza orçamentos, financiamentos... 
FRACTAL PAINT - programa interativo p/ projetos graficos 
GAME COLECTION 1 - três logos de raciocinio tipo tetris. 
GIF 2 BMP - converte telas .GIF para .BMP. 

HP CALCULATOR - calculadora HP para windows. 
INCONTACT - complato administrador de contatos. 

INSIDE COREL DRAW - vários utilitários para windows. 

IQ TEST FO WINDOWS - teste de OI. 

LASER TAME - utilitario para impressoras à laser. 
MATAGRAF V2.4 - gera curvas matematicas. 

METRIC CONVERTER - convenor de medidas métricas. 
MICRO LINK - pacote de comunicação para modem, 
MONEY SMITH - controle seus talões de cheque. 

MY CATS - gato que fica caçando o cursor. 

PAINT SHCP PRO - converte, exibe. altera e Imprime imagens 
ROCK FORO - editor profissional de cartões. 

SYNC IT - faz transferência de arquivos entre micros. 
TETAIS 3D FRACTAL - tetris em três dimensões. 

TOUCH TYPE TUTOR - treine sua datilografia, excelente. 
XWORLD CLCCK - horas de todas 03 palses do mundo. 
WHOOP IT UP - maximiza 9 funções de som dentro do wind, 
WIN ABC - Introdução ao computador para crianças. 

WIN GRAB - para Imprimir endereços am envelopas. 
WINFSN - doze Programas para análise financeira. 


ALPHABET GAMES - alfabeto para crianças, pre-escola. 
AMANO LETTER LOTTO - jogo p' crianças. cores e letras. 
ANIMAL MATH - aprenda a contar, somar subtrair... 

ANIMAL QUEST (vga) - jogo para crianças, exculenta!. 
ANIMATED ALPHABET (ega'vgal otimo p/ aprender Ingles. 
ANIMATED MATH (sga) - aprenda a contar com figuras. 
ANIMATED SHAPES(ega/vga)- p/ Identificação de figuras 
ANIMATED WORDS (sga'vga)-aprenda ingles c' figuras a sons 
BERT'S DINOSSAUROS - cria paisagens e você pinta. 

BOAT BOX - otimo jogo para crianças. 

BRAINSCAPE - adventure em ingles. 

BRANDON'S LUNCHBOX - progr. p/ introdução ao teclado, 
CATCHEM (vga) - otimo jogo para crianças. 

CHILDREN'S GRAPHICS + para desenhar e contar, 

CLOCK AND MOUSE - aprenda a ver horas. 

COIN IN THE BOX - Jogo para crianças, soma. 

CRAZY SHUFFLE - otimo Jogo de memoria. 

EGA COLOR BOOK - telas c/ desenhos p/ crianças pintarem 
EGA MOUSE PAINT (EGA) « 29 figuras p/ pintar. 

FUNNELS & BUCKET'S - jogo com contas matematica. 
JCHN'S ANIMATED - diversao para crianças. 

KID PAINT (uga) - telas para crianças pintarem. 

THE ANIMATED MEMORY (ega'vga) - jogo de memoria. 
WORD GALLERY - aprenda ingles com desenhos. 

WORD PROCESSING FOR KIDS - editor de texto p/ crianças. 
WORD RESCUE - jogo de ação. monte palavras. 
WUNDER BOOK (vga) - logo aba bb [o desenhos 


VERICIA CNN 


ACE ASTRONGNY - tudo Sobre [o plotama molas. 
ASTROCGLK - reloglo astronômico. 

ASTROL 96 - calcula o zodiaco, posição dos planetas ... 
ASTRONICAL EPHEMERIS - fornece mapas astronomicos. 
COSMOS 8.07 - simulação astronomica, estilo planatario. 
DEEP SPACE 3D « produz mapa estelar. 

EARTH WATCH + exiblção de graficos da tarra « jua. 
GRAVITY SIMULATOR - simula gravidade entre 03 planetas. 
JUPITOR SATELLITE SIM. - simulação e exibição de júplter 
LAUNCHER - informações sobra orbitas, 

MISSION TO MARS - todas Informações sobre marta. 
MOONS OF JUPITER - posições de Jupiter e suas luas. 
NAYAGATION JUPITOR - programa p/ navegação marinha. 
PLANETS - utilitario c/ Informaçãos sobre 03 planetas. 
SLICON SKY - exiba mapa celestial e posição dos pianetas 
SKY BASE ed cria mapas 8 aids ceisá do chu. 


256 DRAW (vga) « editor grafico, excelente. 
ANATHER PROGRAM (vga) - animações, seio esom. 
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AQ908 
AO907 
AO906 
AO9OS 
AO903 
AQ902 
AO901 
AD900 
AQR9O 
AMBIO 
AO897 

AOB96 
































AHB93 
AH892 
ADB90 
AOB89 
AH818 
AHB94 
ADB95 
Ao888 
AHB31 
AQBB4 
AOB83 
AOBIS 
AOG8a 

























COD. Q/D NOMEMESCRIÇÃO 


“DD 
1DD 
1DD 
1DD 
1DD 
2DD 
10D 
1DD 
DD 
1DD 
1HO 
1DD 
1DD 


1HD 
tHD 
1DD 
1DD 
2HD 
1HD 
IDD 
1DD 
1HD 
4DD 
10D 
1DD 
1DD 


COD. QD NOME/DESCRIÇÃO 


AQO879 1DD CHART - programa para engenharia eletrica. 
AH909 1HD EASE CASE 1.67 - software de engenharia. 
AOB78 1DO NET WORK - criação a analise de circultos eletronicos. 
AHB77 4HD PSPICE - simulador de circuito eletronico. 
AO976 1DD RESISTOR ado mia Lil, de Ri Lado cateuios em Ohms. 












ANSI PAINT » editor grafico, usa tabela asc. 
CHARTS UNLIMITED - Integra graficos e texto. 

FINGER MAPS 1.01 « edita mapas com dados s Informações. 
FINGER PAINT 2.0 - aditor grafico facll uso, otimo. 

FINGER VGA - processador de Imagens, pinta a anima. 
FLOW DRAW 2.2 - aditor de fluxo gramas, mapas ... novoll 
HI-RES RAIMBOW « editor grafico. (oga) 

LEONARDO (cga) - editor grefico c/ contrução de slides. 
MAC PASTE 2.10 - editor grafico, otimo. 

PAINTERS APPRENTICE - facil uso, ferramenta p/ pintar. 
PAINT BOX + editor grafico. 

PARTY DOT - gerador de desenhos amísticos. 

PC ART 4,0 Era ar Elia de nei uso. 


























AO963 1DD AC HUNTER - alta Mi reterente a telefones. 
AO90S 1DD ADRESS MANAGER - mala direta, telefones, enderecos. 
AO982 DD AMORTIZATION - faz calculos financeiros e estimativas. 
AO9TO DD BUSINESS ANALYSIS - programa Rinancalro 6 estatístico. 
AO989 IDO CLIENT NOTE FILE - manipula Informaçãões sobre clientes. 
AO971 1DD CONSTRUCTION EST .- estima material e custo p/ construção 
AMBI6 MD CONTACT PLUS - agenda de telefones a compromissos. 


GA DIGRAPICOS: il AO967 IDO EASYDIAL 3.6 - programa para uso com modems. 





























AH981 1HD EZ FORMS EXECUTIVE - editor de formularios. 

AH996 IMD EZ FORM FIRST 1.1 - mestre para criação de formularios. 
AH980 IHD EZ FORMS LITE 1.5 - editor de formularios. 

AH822 1HD FAST BUCKS + controle as finanças de casa. 

AO983 DD FINANCE ANALIZER 2.0 « calcula emprestimos, depositos... 
AO964 100 FINO AREA CODE - procura codigos de telefones nos EUA. 
AO968 200 FONE 6.1 - fornece precos de chamadas Internacionais. 
AO96S 10D ECNE BOOK 3.0 - organize sua agenda telefonica. 

AH$24 1HD FORM GENERATOR - edkor de texto c/ caracteres graficos. 
AOBOB IDO LABEL MAGIC 3.01 - editor de etiquetas graficas. 

AO984 IDD LOAN CALC. calcula mensalmente pagt” de emprestimos 
AO972 DD PC AREA CODE 3.0 - procura areas das cidades dos EUA. 
A0973 1DD PCBID2.1- preco estimado em contratos e trabalhos. 
AO974 20D PC ESTIMATOR - elabora tabelas de precos. 

AO988 3DD PC MAIL 2.02 - mala direta, excelente. 


ANYANGLE 2 65 - estudo doi riánoulos nova versao! 
CADET - editor de texto p/ uso com AUTO CAD. 

CURVE DIGITIZER - versatil editor grafico. 

DICGGO 3.0 - gera coordenadas geomerricas em 20. 

DRAFT CHGICE 1.51 - nova versao do otimo cad. 

ENVISION PUBLISHER (VGA) - dektop publishing. excelente! 
HYPER SLIDE - apresenta e cria sildas, usa telas AUTOCAD 
LAYOUT - criação de desenhos e ferramentas p/ manutenção 
MEGA DRAW 4.0 - lerramenta p/ dasenhos e animações. 

PC DRAFT CAD 3.6 - poderoso cad. 

PC KEY DRAW 3.76a - versatii sistema grafico, novol| 

PRINT CAD 1.14 - emulador de plotter para cad. 
RECURSIVE REALM 3.0 - sistema p/ criar fractais. , 
QUEST V3.1 - editor grafico em 3d, otimo, 


ssoss se ses sen ee EUUÇA a À AH976 IHD PHONE 2.20 - agenda telefonica c' nomes enderecos. 








AQ9S6 
AO955 
AD95A 
AO957 
AO954 
AO95O 
AO821 
AOB23 
AHB25 
AO96O 
AO809 
AOB1Q 
AOB29 
AQ96I1 
AO832 
AO914 
ADB36 

































AOBT72 
AHB75 
AOBTO 
AHB74 
AOB71 
AQBS9 
ADRs 
AOg6? 
AO866 
































AQ951 
AQ920 
AH915 
AQ95O 
AQ919 
AO94O 
AO9I9 
AOGI7 
AO930 
AO9I6 
AQ946 
AH918 
AD943 
AQ94S 
AO944 
AD949 
AO949 
AO94? 
AH943 
AH953 
AO942 
AO941 
































10D 
10D 
IDO 
1DD 
1DD 
1DD 
1DD 
1DD 
1HD 
1DD 
tDD 
DD 
1DD 
100 
1DD 
1HD 
1DD 


tDD 
1HD 
1DD 
1HO 
tDD 
1DD 
1DO 
IDO 
DD 


100 
IDO 
1DO 
tHD 
1DD 
IDO 
1DO 
1DD 
1DD 
1DD 
1DD 
1DD 
1HD 
DD 
IDD 
1DD 
IDO 
1DD 
1DD 
1HD 
1HD 
100 
1DD 


WA TCR- in de bao . preso. 
















BETTER EYESIGHT + tudo sobra os olhos 6 s0U3 musculos. 
BISIM - Imita eco sistemas naturais. 
CHEM PACK - complata tabela periodica. 
CHEMICAL 4.2 - cria moldes de moleculas 3d, nova versão. 
CHEMVIEW - animação molecular em 30. 

ELECTRON - tudo sobra elstrons e eletricidade. 

ELEMENT STUDY AID - tudo sobre os elementos químicos. 
FAMILY TREE - efetua calculos gensticos. 

FLAGS - bandeiras de todos 03 palses a estados. 

GEO CLOCK (vga) - atias digitalizado. 

HAZADOUS CHEMICAL - analise de compatibilidade quimica. 
LEARN TO SING - ensina o alfabeto usado pelo mudos. 

LOTUS LEARNING - ensina a usar a planilha lotus 123. 
NATIONS OF WGRLOD - estatisticas geográficas do palses. 

PC CALIB - calibra.concentração de substancias químicas. 

PC FASTYPE (oga) - otimo curso de datilografia. 

THE HEART - tudo sobre o coração humano. 

VACATION PLANNRE - Informações é mapas dos EUA «e Canada 


AO966 IDD PHONE MAN - agenda de enderecos « telefonas. 

AO978 2DD REGIT 4.2 - transforma seu pc em uma caixa registradora. 
AO992 o fed CHARTING 3.11 - controle de estoque e mercadorias. 
AOS MAGNIFICENT ADDING - converte seu pc em calculadora. | 


PI SOGE R A NÃO E PUB. UQUE ES 


AO39C 1DD ADM. ESCOLAS E ACA. - sistema para escoias + academias. 
AO561 1DD AGENDA - agenda completa com manwal em portugues. 
AD004 1DD AGENDA - agenda de compromissos. 
AO532 1DD AMIGO (cga) - codigo de defesa do consumidor. 
AO008 1DD ASTRAL (zodpc) - faz calculos e mapas astrologicos. 
AO655 1DD CADASTRO DE CLIENTES - cadastro de cllentas. 
A0025 3DD CONSTITUIÇÃO ELETRONICA - constitulção brasileira de 88 
AO484 200 CONTABILIDADE - sistema de contabliidade. 
AO447 1DD CONTASA PAGAR 8.2 - contas a pagar.(Compasso) 
AD389 4DD CONTAS A PAGAR/RECEBER - contas a pagar a recebar 
A0764 1DD CONTAS A RECEBER 8.2 + contas a receber.(Compasso) 
A0O763 1DD CONTROLE BANCARIO - controte suas financas.(Compasso: 
AO779 1DD CONTROLE DE ESTOQUE 8.2 - otimo contr/estoque. (Corrpasso; 
| A0564 20D COSMICO CONTABILIDADE - sistema de contabilidade. 
“ki AO729 1DD CRIPTO - criptogratador de programas. 
AO4B6 1DD CUSTO & FATURAMENTO - tudo para controlar sua firma. 
“A0569 1DD DAP 1.1 V147-tira as senhas de jogos. 
AO786 10D DISK INDEX - catalogador de disquetes. 
AO785 IDO ELETRO - executa oreamento de projetos eletricos. 
AO787 1DD EXTOK 2.09 - controle da estoque físico « financeiro. 
AO7T68 IDO FIGHARIO ELETRONICO - banco de dados, agenda... 
A0762 100 FLUXO DE CAIXA 8.2 - sistema de fluxo de calxa.(Compassc. 
AO496 10D FOLHA DE PAGAMENTO - sistema de folha de pagamento. 
AO389 IDD FOLHA DE PAGAMENTO - outro otimo folha de pagamento. 
AO242 1DD GUIA PAULISTA « guia de hoteis, lazer, restaurantes ... 
A07B1 3DD INFO 2000 - Introducas à informatica. 
AO6S6 100 LDSK - faz etiquetas p/ disco com diretorio. 
mm] A0067 IDD LOTO DESDOBRADO - faz sortalo da loto podendo Imprimir 
“DF AOT66 I1DD MALA DIRETAS. 2 - super mala direta. (Compasso) 
AO069 1DD MALA DIRETA PRO BASE - sistema de mala direta. 
AO78O 1DO MANUAL DOS SISTEMAS - manual dos sistemas da Compasso. 
Ao426 1DD MULTIMALA 1.2 - sistema de mala direta. 
AD497 1DD PC POLILOT - sorteio da loto e loteria esportiva. 
AO520 1DD PRONTO fichario eletronico. 
AOO99 100 SAMI - fantastica agenda de compromissos. 
AOS39 IDD SENA 91% - sorteio de jogos para sena. 
AO646 3DD SENA4200 - taz sorteios e combinacoss da sena. 
AH801 1HD SIS. CONTROLE BANCARIO - controls bancario. 
AHBO2 IHD SIS. CONTROLE FINANCEIRO - controle finançairo. 
AO767 ADD SISTEMA CONTABIL - sistema de contabilidade integrado. 
AO10S 1DD SISTEMA CONTROLE ESTOQUE - controle de estoque. 
A0777 100 SISTEMA IMOBILIARIA - sistema para Imobiliarias. 
AO444 1DD SISTEMA PADRAO CONTABIL - sistema de contablildade. 
AO575 1DD SUPER LOTO MASTER - sorteio da loto. 
AO7e8 1DD TBAY 6.004 - anti-virus em portugues. 
AO113 1DD TUTOR DOS 4.01 - tudo sobre o dos 4.01. 
AQti4 1DD TUTOR LOTUS 123 - aprenda a utilizar a famosa planilha. 
AO778 1OD WNE - editor de textos bri portugues: 















ALBUN MASTEA - versatil catalogador da pa 
BOOK LIBRARIAN - catalogador de livros profissional. 

BUCK FILE - otimo programa p/ colecionadores. 

CASSETE MASTER - cataloga fitas c/ funções de Impressao. 
CASSETEI - sistema para catalogar fitas K-7. 

COIN FILE + sistema da Inventario p/ coleções de mosdas. 
COLLECT! - versatll sistema banco de dados. 

FOR ANTIQUE DOC.- p/emtalogar antigos e raros documentos 
FOR COMIC BGOK - programa para colecionadores de livros. 
FOR GUN COLLECTORS - para colecionadores de armas. 
INTELICAT + catalogador de disquetes. 

MOVIES » banco de dados para fimos. 









BARTENDER 1.1 - 200 receitas FR bebidas 8 ER 
BIGRHYTHM - gera lista de blorritimo mensal. 
COMPUTER BAKER - 99 receitas p/ forno. Banco de dados. 
DIET AID - plano de dieta computadorizada, banco dados. 
DIET TEST - controle de peso. 

EDNAS'S COCK BOOK - completo sistema para receitas. 
EKG - Interensante apresentação envolvendo corpo humano, 
EMS - tecnicas de emergencia medica. 

FAST FCODS - lista nutricional c/ seus valores proteicos 
FLOWER REMEDY PROGRAM - ensino sobre as flores. 
GOUAMET RECIPES - 66 diferentes receitas em formato TXT. 
HEADACHE FREE - Informaçãões relativas a dor da cabeca. 
HEALTH AIDE - orientação nutricional. 

HONE SARTENDERS GUIDE - receitas de bebidas s drinks. 
INSULIN - prog. p” ajudas na regulagem de Insulina usada 
KINETICS - ajuda o medico no controle de doses e drogas. 
NON-MEDICAL « tecnicas p/ superar sofrimento a dores. 
NURSE WORKS 2.0 - series de enfermagem c/ utilitarios. 
PRESCAIPTIGN ASSISTANT - prescrição de etiquetas. 
SLIMMER « redução de peso pí nive! de colesterol alto. 

THE ALTERNATIVE HEALTH - varios assuntos sobre saude. 


THE STRESS TEST - determina seu nival de stress. 
WHY YOU SMOKE - im à Mista pie viimEtto de fumar. AT E N D = M O S 
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CLASSIC SOFT TEL /FAX (011) 875-4644 


RUA JOÃO CORDEIRO, 495 - FREGUESIA DO Ó - SÃO PAULO - CAPITÁL - CEP 02960-000 


FAÇA SEU PEDIDO: Por telefone, fax ou carta. PROMOÇÕES PC 


FORMAS DE PAGAMENTO: ogos ganhe um grátis c/ disco 
A) SEDEX à cobrar, você sé pagará quando retirar o pedido no correio de sua cidade. en cn 
B) CHEQUE NOMINAL À CLASSIC SOFT LTDA.. para sua comodidade é economia recomendamos fazer O 

DISCO 5 1/4 HD C/ GRAV.......cccoo R$ 2,00 


pedido por cheque nominal pois você recabe seu pedido em casa. | 
C) DEPÓSITO BANCÁRIO: Banco do Brasil - aq. 0687-4 - conta 4798-8 em nome de Classic Solte Unibanco - ag. DISCO 5 174 DD C/ GRAV...semenrem R$ 1.50 
PARA COMPRA ACIMA DE 20 DISCOS 


137 - conta 113 444-4 em nome de Claseio Soft + Bradesco - ag 117-1 - conta 98741-7 em nome de Classic Soft - 
erviando xerox do depósito junto ao pedido. PAGAMENTO EM DUAS VEZES: 
metade no ato, metade para 15 dias após. 


DESPESAS POSTAIS: (Registrada) pedidos até 18 discos..... A$2,80 (Preço somente para pagamento em cheque 
ou depósito bancário 
JOGOS P/ PC/XT-AT - DISCO HD 1.60 URV - DISCO DD 1.20 URV C/ GRAVAÇÃO 

COD.:QD NOME: COD.:Q0 NONE: COD.:QD NOME: COD.:QD NOME: 
O SO CU Os = = an] 
OPOcaono EN ao are corn noa nana GoSgeSDanos 1092 600 LEISURE SUITLARAY Mcgabga) | 4134 2DD FOROSMULATOR 2 (coa) 1348 300 POKER CHIES (gaga) 
Rr E Ji44 1DD GRANPAXCIRCUM (ga) Ea DIDO nonãs ] 1030 1DD POOL 30 (ogalsga) 
1251 40D GRAN PRIX UNLIMITED (vga) MORTES as: JS40 ADD STAIP POKER (oga) 
563 1DO HARD DANNG ( ogança) 00,9, 9.07 9,0) Pa ta,0,8 0,0 614,4 EE IODO 050,0 0,0.0, 5. DSR 254 0,0 ,4 ! 155 7DD STRIP POKER 3 trga) 
JB! 2DD HARD DRIING 2 (egatigaloy) 10! 1DD fOTHFRAME (bolicho)(cga) 1265 1DD STRIP POKER EM PORTUGUES 
Jf77 2DD INDIANAPOLIS 500 (cgahga) HOS3 1HD 4DSPORTS BOXING (vga) 1240 1DD TRUCO( 
244 20D OUT RUN (cgaNgabei) 1113 400 ABC BOXXING (vga) 
1305 200 PARIS DAKAR (cgaNgaber) J$79 1DD ARCADE VOLEY BALL (cga) 
284 4DD POWER DAFT (cgarga) f74 2DD BLADES OF STEEL (egakga) 
278 2DD PM SUZUKI (gaga) 1355 30D BUFALLO BILL (egahga) 
J34! 30D STREET ROD (cgalgatar) J062 3DD CALIFORNIA GAMES H (cgaMga) 
J44 4DD STREET ROD2 (cgalgaha) 576 SDD DREAM TEAM (vga) 
854 4DD STUNTS (ogakgaher) 1404 1DD EIROPEAN CHAMPION 1902 (vga) 
S361 1DD SUPER HANG ON (cgaloga) 559 DD FERNAN MARTIN(cga)(basqueis) 
62 20D SUPER OFF ROAD (cgaNça) H212 3HD HARD BALL 3 (vga) 
77 10D TEST DRNE 1 (cgatrgaher) 1338 SDD HOLE IN ONE (golfeXcgaMga) 
78 ADD TEST DANE 2 (cgalogakga) 876 2DD INTERNATIONAL SOCCER (cgatg) 
380 3DD TESTDAIVE 3 (vga) 1100 1DD ITALIA 80 (egabça) 
20 1DD TRANSILVANIA (eg) J739 1DD TURBO OUT RUN (ega) J184 20D KINGS OF THE BEACH (cgalga) 
H48S 2HD VENGANCE OF EXCALBUR (vga) | J736 300 TURBO OUT RUN fvgo) J181 2DD LAKERSx CELTICS (ogaloga) 
nerornnnBnE mas conponno Ee H074 1HO VETTE (ogaNça) 1285 SDD LINKS (vga) 

RO SR H334 SHD MORLO CIRCUIT (206hrga H498 4HD LINKS 306 (306/w9a) 
te e DS ee = 205 300 LOW BLOW (BOXE) (ogafge) 
2DD ASTERIX (cjalegaNga) 3 Be PTI OR H399 1HD NCAA BASKETBALL (vga) 
HOB9 SHD BAT (vga) H455 2HD OLIMPIADAS 22 (vga) 
H337 7HD BATMAN RETUPNS (vga) O : Hé15 JHD SUPERSKY 1 fega) 
035 400 BATMANTHEMOVE (egavga) pi 526 3DD TAKE DOWN (lula livre)(cge) 
H440 1HD BUMPY'S (egaivça) J!8 20D AFTERBUANNEA (ogahguher) 97 4DD TENNIS PRO TOUR (cgalega) 
847 1DD CADAVER (vga) J747 200 BLOODY MONEY (vga) Hil2 1HD TENNIS PTO TOUR 2 (vga) TOO TOerroerpeeeemerero 
4187 1DD CAPITAO TRUENO (cga) J740 20D BLUE ANGELS (cgaga) 1280 2DD WORLD CHAMPION SOCCER (vga) 7 
J068 200 CASTLE VANIA (coalega) J114 1DD ELITE (ega) J!38 2DD WORLD CUP SOCCER (oga) 
1478 1DD CDMAN (pec manha) H!26 IHD ELITE PLUS (vga) 437 DD WORLD GAMES (ga) 
1284 IDD CHARLIE CHAPLIN (cga) J84 4DD FIGHTER BOMBER (cgaiga) 40 1DD WORLDTOURGOLF (cg) PEER 
1476 20D COMMANDER KEEN 6 (eg) HOB7 IHD GALACTICNg) lee eee 1953 200 ANMETED MEMORY (vga) 
1911 6DD DICKTRACE (vga) 1198 10D STARGOOSE (oga) E Bio Ê 928 4DD ATOMIX (vga) 
J107 20D DUCKTALES (cgaega) J329 1DD STARTRECK (coa) RetocrodoosboBBooodo sd toBocto 098 20D BATTLE CHESS (ogakga) 
HISS SHD FREE DC (vga) 30 SDD STARTRECKY (vga) J0!4 1DD ADULT GAMES (cga) H385 BHO BATTLE CHESS 4000 (vguim ga) 
J742 1DD FLNTSTONES (cgakga) H64 7HD STARTRECK XV (vga) J020 100 AIDS (cga) JOTA 1DD CHESS MASTER 200 (cga) 
HH6 IHD GODS (306/98) J3%4 1DD THEXDER (cga) JOS4 100 BOCA (coa) HO62 2HD CHESS MASTER 3000 (vga) 
S149 2DD HORA DO PESADELO (cgalega) 4589 300 XENON 4 (cgafga) J077 1DO CINE PORNO (oga) H311 2HD CIVILIZATION fvga) 
1041 3DD HORROR ZOMBIES (vga) 12 1DD XONOX (coa) H458 3HD OL-VIEWER (vga) 1982 1DD COLUMMS (ega) 
JIS! 1DD HOSTAGES (cga) H329 SHD X-WINGSTAR WARS (306hga) 065 1DD EASTSUCKS WEST (vga) JOBS 1DO CYRUS XADREZ 30 (cgaga) 
588 DD ILHA DISNEY (cga) LO0Z BHO WING COMMANDEA U fra) 4830 tDD MAXINE (cga) 1403 1DD DYNAMO (DAMAS) (cgairge) 
JI74 1DD INDIANA JONES (cgalaga) ESET Dn Do pnpnenc anna sm 1900 20D NIXXI (vga) Ji2s 1DD FACES (ogaher) 
J!75 20D INDIANA JONES 2 (cgalegaher) E 7 1432 100 PORNO (cga) J848 9DD FACESTETAIS fvga) 
H206 IHD JOE & MAC (385hga) 134 1DD PORNO CARTOONS (cga) JI98 30D LEMMINGS 1 (vga) 
H449 2HD LURE OF THE TEMPRESS (vga) 262 1DD PORNO STORY (ega) H480 2H0 LEMMINGS 2 TRIGLES (vga) 
213 1DD MARIO BROSS fvga) HO98 IHD SEX CAPPAD fvga) tt0! 6DD LIVING JIG SAW frga) 
H088 IHD OUT OF THIS WORLD (vga) 584 BDD A-10 TANKKILER 2 (agahça) HO49 2HD SUPER PORNO DEMO (vga) J808 ADD LOGICAL tros) 
J246 1DD PAPERBOY (cga) 1332 600 A-TRAN (vga) J766 100 TELA EROTICA (cga) HI93 IHD MICKEY JG SAW (cgalega) 
HO9S HD PAPER BOY 2 (vga) J784 20D ABRAMS BATTLE TANK (gahga) [EE record 228 SDD MONOPOLY (coa) 
1902 200 PRE HISTORIC (agaiga)* 39 1DD ACESOFACES (ega) E 1907 1DD MONOPOLY 2.0 (ogalga) 
J$43 300 PREDATOR 2 (cgaliga) HOB4 QHD ACES OF THE PACIFIC (vga) foton 930 1DD PACMAN (cguPCXT) 
“288 200 PAINCE OF PERSIA (cgahya) 1182 4DD ATP (coalegalga) : 1219 1DD PACMAN (ogarga) 
Hés8 1HD PRINCE PERSIA EDITOR(cgakga) | H196 SHO B7FLYINGFORTRESS (vga) [ESSES H418 SHD POPULOUS E (vga) 
H460 SHD PRINCE OF PERSIA 2 (vga) JO43 2DD BATTLE HAWKS 1942 (cgavga) 1405 1DD AIRBONE RANGEA (cgalega) H418 1HD SARGON Y frga) 
272 200 RAMBO 3 (coa) JO4S 4DD BATTLE OFBAITAN (coafga) 1154 1DD BATALHA NAVAL (cga) 63 1DD TETAIS (coa) 
H426 1HD RISKWOODS (vga) H280 3HD COMANCHE (3064 9a) JO50 20D CABAL (cgs/ega) H435 1HD TETTRIS CLASSIC fega) 
280 1DD AOAD RUNNEA (cgaleça) J614 DD FM7A(vça) H215 IHD CONFLICT (cpaloga) H993 2HD THE HUMANS fegaisça) 























































































































































OS IR, HOM! BHO LEISURE SUIT LARAY 5 frga) 
ge, 060.548 GERE CEE EE “201 2DD LIFE AND DEATH (cega) 

Há74 SHD MANSLEY LOS ANGELES (vga) 
H340 5HD MARIO MISSING (vga) 

H370 9HD MIGHT AND MAGIC 4 (ra) 

518 BDD MONKEY ISLAND 1 (vga) 

HO27 BHD MONKEY ISLAND 2 (vga) 

H407 6HO POLICE QUEST 1 VGA 

H202 SHD QUEST FOR GLORY 3 (vga) 

H313 10HD SHERLOCK HOLMES (vga) 

J826 3DD SPACE QUEST 2 (cgaiça) 

16 6DD SPACE QUEST 3 (cgavgahor) 
HO35 6HD SPACE QUEST 4 (vga) 

H365 SHD SPACE QUEST 5 (vga) 

H413 2HD STARLEGIONS fvga) 

H274 6HD STUNT ISLAND (vga) 

4107 4HD THELEGEND OF KYRANDIA (vga) 




























































H0881 01HD COOL WORLD 

H1030 11HD COMMANCHE ENHANCED 
HOS28 03HD COMMANCHE MISSION 2 
H1010 01HD CREEPERS 

H1024 O2HO DINO PARK 




























































H574  2HD AIRTRAFFK CONTROLER 
H11B | 1HD BATTLE CHESS FORWINDOWS 
WHisQ 1HD BATTLE SAT (batalha naval) 
H106  1H0 CHESS MASTER 3000 FOR WIN 
1269  4DD DAMAS FORWINDOWS 

WH229 2HD GAME PACKIV 

H021  1HD JOGOS FOR WINDOWS 

H989  2H0 MONOPOLY DELUXE (386) 

H641  2HD PIMBALL WINDOWS (386) 

H457  tHD POKERFOR WINDOWS 

Wos0 10D PUZAE 

H443  2HD RISKFOR WINDOWS (396) 

1951  2DD SIMCITY FORWINDOWS 

W067  1DD TAKE ONE 

147  1DD TETAS FORWINDOWS 

WH201 1HD WINSHARK (poker) 

WH209 1H0 WINWHELL 



































































































































































H1058 10HD INCA 2 
H0713 03HD INDY CAR RACING 








































































H0747 03HD0 MORTAL KOMBAT 

HOGS3 OSHO MKAHT MAGIC V DARKSIDE OF 
H0618 03HO NIGEL MANSSEL 

H0677 O1HO PANGQG DINO BALL 

H0910 12HD POLICE QUEST 4 

H1075 01HD PINBALL DRENS FULL 
HOD24 02HD PINBALL FANTASIES 
H0651 OGHD PRIVATEER 

H0740 05HD ROBOCOP 3D 

H1005 O2H0 RAGNAROK 

H1055 03HD RAL ROAD TYCON DELUXE 
HOS93 OGHO RALLY 

H1001 O4HO 










































































































































































































































J0o02 2DD GCOGATTACK SUB 2 (cgairga) 
JOOM 4DD A-fO TANKKILER (cgalsga) 
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H002% O2HD SIM HEALTH J20t 1DD ROBOCOP (ega) H256 (HD F-417A TURORIAL frga) H214 1HD CRACK DOWN (cgalrgater) W493 2HD THEATRE OFWAR 
OT DIR O Ven 282 20D ROBOCOP SPECIAL (coa) J544 4DD F-14 TOMCAT (ogakça) 1272 2DD GREENBERET (PC-XTibga) 1188 1DD X-MAS LEMMINGS (vga) 
H1079 O2HD TOP GUN H143 SHO ROGER RABITT 2 vga) Jit5 DD F-ISSTAIKE EAGLE 1 (coa) J187 DD IKARIWARRIORS (ea) 1108 1DD ZARKOV (radrazioçad: 
H1014 OSHD ULTIMA 8 PAGAN H442 2H0 ROGERWECO (vga) J1t6 2DD F-ISSTAIKE EAGLE 2 (cgavça) 1410 10D METAL GEAR (cgalegaler) ESMESPSEESaconoennencnsacoen 
H1011 G3HO ULTIMA 8 SPEECH PACK | “305 10DO SPACE ACE (cgakga) H267 6HD F-15 STRICK EAGLE 3 (92086) J241 3DD OPERATION WOLF (cpa) HF 

H0320 OSHO X 139! 12DD SPACE ACE 2 (cgafga) J!18 2DD F-16 COMBAT PLOT (egahor) H286 1HD PACIFIC ISLANO (cgalrga) 

H0334 03H0 WORLD CIRCUIT H326 2HD SPEAROF DESTINY (vga) Jt21 3DD F-t9 (cgafegatgaher) H4B2 9HD PATRIOT (vga) 


J360 fDD SUPERCONTRA (cega) Poa boisoomrrctdo 

Ji27 1DD FALCON (cga) H436 BHO TASK FORCE 1942 (vga) Jos 1DD PBARIAM ( 

HOSS SHD FALCON 3.0 (vga) H445 3HD TWLIGHT 2000 (vga) 1258 30D BRUCE LEE LIVES (cgalga) 
H265 2HD FALCON 3 0 MISSION CEEE SEC soares rc] JOSO 20D DRAGON NINJA (conioga) 
1495 6DD FLIGHT OF INTAUDER (cgak ga) do Ed J104 2D0D DOUBLE DRAGON (cpatan) 
Jt90 2D0D ALGHT SIMULATOR 30 (ogairo) SDS OS SEER cas SS JtOS 1DD DOUBLE DRAGON E! (oga) 

Ji31 20D FLIGHT SIMULATOR 40 (cgalog) J026 DD ARKANOID 2 (ega) 15t 3DD DOUBLE DRAGON | (ogakga) 
Hi15 1HD PLGHT SIM 4 senarios Jo 1DD ARKANOID 2 (agakrga) H451 1HD DOUBLE DRAGON IN trga) 
65 200 GUN SHIP (cgalaga) 1362 1DD BANANOID (vga) H328 1HD FIRST SAMURAI (vga) 

H191 SHD CARMEN SANDIEGO DELUXE (vga) Hi22 1HD WOLFENSTEN 3.0 (vga) H064 3HD GUN SHIP 2000 (vga) J209 1DD MACADAM BUMPER (coa) Jt45 2D0 GOLDEN AXE (cgatrgalher) 
JOE 1DD CARMEN SANDIEGO EUROPE (eça) Jr7Tt 3DD X-MEN (coaga) H395 2HD GUN SHIP 2000 MISSION 214 1DD MASTERBLASTER (egaPC.XT) JtB3 1DD KARATEKA (cga) 

J89t 300 CARMEN SANDIEGO TIME (cghga) OCA Ce nao common ade SORO H096 1HD MEGA FORTRESS (vga) 597 1DD NIGHT MISSION (cga) J746 1DD NINJA GAIDEN (ogalsga) 

Ji24 1DD CARMEN SANDIEGO N USA ega) y Jo74 20D MG 28 (cgakrga) 250 1DD PINBALL COLLECTION (PC-XT) 1391 DD NINJA RABBIT (cguirga) 

H954 HD DARKLANDS (vga) J745 100 MIRAMAR (coa) J257 1DD POPCORN (cega) J$44 4DD PANZA KICK BOXXING (vga) 
H164 OHD DARK SEED (vga) J7B1 9DD RAR ROAD TYCON (cgak ga) H148 1H0 TRISTAN (3064ga) Ho73 1H0 PIT FIGHTER trga) 

1468 SOD DRAKXKHEN (conhgahe) Hi73 2HD RED BARON (vga) Ê RESRESRAgRER 8 J274 2D0 RASTAN SAGA (cga) 

H378 4HD DUNE Nívça) 1413 BDD SECRET WEAPONSLW (vga) J566 20D RENEGADE (egairga) 

H240 SHD FIVEL fvga) 1007 4DD SIMANT (vgaher) RISO RNA 205 20D SHINOBI (ogairga) 

M427 1HD GALLEONS OF GLORY (vga) 1958 200 SIMCITY (cga) H060 1HD AMARILO SLIM POKER (vga) 515 SOD STREET FIGHTER MAN (egairga) 
H452 3HD GOBLIN'S (vga) 297 200 SMCITY (vga) 53 1DD BAHAR 30 (cgatrgahe) 138 2DD STREET FIGHTER (ogalega) 
H297 1HD HOUSE OF HORRORS (vga) J881 4DD SIMCITY FUTURE (vga) JBt6 1DD BLACK GAMMON (egarga) H46t SHD STREET FIGHTER E (vga) 
H067 GHD INDIANA JONES ATLANTIS tros) 1176 4DD SIMCITY GRAPH ANCIENT (vga) J$59 1DD CANASTRA (cega) J367 4DD TARTARUGAS NINJA (ogaloga) 
He) HD GB (vga) JS7t 4DD SIMEARTH (vga) J$62 1DD DOMINO (cgatoga) J$98 80D TARTARUGAS NINJA 2 (vga) 
HS02 9HD KINGS QUEST Vi (vga) Hé17 1HD SPECTRE (vga) 1265 1DD DRAW POKER (cga) HIt 4HO TARTARUGAS NINJA 3 (vga) 
J196 200 LEISURE SUTLARRY 1 (ega) 1026 3DD STAME ACES (rga) 1477 100 JMMY WHITES SNOOKER (vga) 01 400 TONQUE OF FATMAN (cala) 
H209 SHD LEISURE SUIT LARRY 1 (vga) J986 1DD THE HUNT OCTOBER (cga) Je4? 1DD PC POOLS CHALLENGE (coa) H119 1HD WRETLE MANIA frga) 


ATENDEMOS SEU PEDIDO ATE AS 21 HORAS POR TELEFONE 


Jo78 20D SPIDERMAN (cgairga) 
H140 3HD THE ROCKTEER (vga) 


421 2DD F-29 trga) 








HO648 01HD WORLD CIRCUIT 
UPGRADE 


H1076 02HD YO JOE 4 

H1078 OGHD GREAT NAVAL BATTLE 2 e ed E SAPENS ai 
Temer Tree "] HI63 $HD THE SIMPSONS vs SPACE MUTANT 
ess Cas co 8 = HO6! (HD THE TERMINATOR 2 (vga) 

W7S 1DD TICOE TECO (egaleça) 

3584 1DD TOMA JERAY (cgalega) 

1204 6DD WRATH OF DEMON (vga) 




















































































ALONE IN THE DARK (vga) 
AMAZON (vga) 




































































































SS 1DD 414 OFF ROAD RACING (cga/og) 
1111 1DD ACTION FIGHTER (ogalegatan) 
JO!7 1DD AFRICAN RALLY (ega) 

H923 4HD CARA DANEA (906kga) 

1304 10D CISCO HEAT (cata) 

J091 200 DAYS OF THUNDER (cgal ga) 
4124 1DD F-40 (ega) 

509 2D0 FERRARIF-I (ogarga) 

1383 1DD FIRE AND FORGET (cg) 
J133 1DD FORO SMULATOR (cge) 
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Efeitos sob medida 





Veja como criar e programar efeitos gráficos, utilizando orientação 


a objetos 


André Caldas Oliveira 


Neste artigo serão descritos os procedimentos / 
modelagens utilizados em dois programas que executam 
tarefas bastante simples, porém que servem bem para 
ilustrar o poder da orientação a objetos. Estes programas 
foram escritos como uma engenharia reversa a dois 
programas que o Windows utiliza no Screen Saver 
(opção Main / Control Panel / Desktop / Screen Saver). 


SIMULANDO O EFEITO MYSTIFY 


Neste programa observa-se que dois polígonos 
movem seus vértices pelatela, deixando um rastro de 'n' 
linhas e mudando de direção quando estes batem nos 
limites da tela. Também observa-se que de tempos em 
tempos as cores dos polígonos mudam. Além disto, a 
trajetória dos vértices é variável, e o movimento de todos 
os polígonos acontece em paralelo" tornando o efeito 
visual bastante agradável. 


Modelagem : 

A chave de um programa que utilize OOP é uma 
modelagem bem feita do universo, no qual iremos 
trabalhar, merecendo, portanto, bastante atenção. 

O objetivo do programa é construir um universo 
genérico no qual possam existir 'N” polígonos com M' 
vértices e deixando um rastro de Z' linhas cada. Além 
disto, estes polígonos terão de se mover em paralelo. 
Porém, estaremos utilizando uma metodologia que 
facilitará bastante a nossa vida, pois bastará definir um 
polígono com 'M' vértices e depois criar 'N' instâncias 
deste objeto para termos o nosso universo. 
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Definição das classes : 
Classe Polígono : (** Descreve a estrutura de um polígono **) 
Atributos Principais 
nver ==> Numero de vértices do polígono. 
MAX ==> tamanho do rastro deixado. 
x,y,x1,y1 ==> janela pela qual o polígono moverá seus vértices. 
px,py ==> vetores que armazenam vértices do polígono. 
deltax,deltay ==> vetores que armazenam deitax e deltay de cada 
vértice 
==> vetores que armazenam o rastro deixado pelos 
vértices. 


VX,VYy 


Métodos 
InitPontos e RolaPontos. 
Fim-Classe Polígono. 


Descrição dos métodos : 
InitPontos : 
1) Inicializa polígono recebendo como parâmetros : 
*> nv = número de vértices do objeto. 
*> mb = tamanho do rastro deixado. 
*> px1,py1,px2,py2 =janela onde o polígono se moveráã. 
2) Inicializa a variação que cada vértice terá e a cor do 
polígono. 


RolaPontos : 
Esta rotina irá mover os vértices do polígono (um 
movimento por chamada). 


1) Atualiza os vértices conforme os deltas, se algum 
vértice atingir os limites da tela então o seu delta será 
recalculado e a sua direção alterada. 

2) Apaga o elemento anterior (é utilizada uma fila 
circular, se esta já foi preenchida então algum elemento 
terá de ser apagado). 

3) Armazena posição da figura corrente (para esta poder 
ser apagada posteriormente). 

4) Efetua um sorteio para verificar se O polígono deverá 
trocar de cor. 


5) desenha o polígono corrente. 
Classe Colecao : (** Contém um Conjunto de Polígonos do Universo * +) 
Atributos Principais : 
numobj ==> número de polígonos do universo. 
vetobj ==> armazenarão os polígonos do universo, sendo um 
vetor de Objetos do tipo polígono. 
Método : 
GeraColecao(no,nv,mb) : 
no ==> número de objetos, nv ==> número de vértices, 
mb ==> tamanho do rastro deixado. 
Fim-Classe Colecao. 


Descrição do método GeraColecao : 


1) Inicializatodos os polígonos pertencentes ao universo. 
2) Rola os pontos de todos os polígonos até que uma 
tecla seja pressionada. 


Observações : 

A modelagem da Classe Polígono envolveu, além de 
aspectos naturais do próprio objeto, como conjunto de 
vértices, aspectos relacionados à implementação do 
programa, como vetores para armazenarem o rastro 
deixado pelo polígono e contadores para marcarem a 
posição corrente nos vetores. 

A modelagem da Classe Colecao (Universo) foi mais 
natural, pois simplesmente consistiu em uma descrição 
do que o artigo mencionava em seu início, ou seja, um 
universo com 'N' polígonos com 'M' vértices e deixando 
um rastro de Z' linhas cada um. 

O fato de rolar os vértices dos polígonos um por vez, 
tomou atarefa de simular o paralelismo bastante simples. 

Se você desejar poderá modificar o programa para 
que cada polígono tenha um comportamento, ou seja, 
um número de vértices e tamanho de rastro diferentes. 


SIMULANDO O EFEITO STARFIELD 


Neste programa observa-se várias estrelas movendo- 
se em perspectiva na tela. Cada estrela possui uma 
velocidade que varia conforme a sua trajetória, sendo o 
ponto de partida e a trajetória de cada estrela variáveis. 
Pode-se considerar que cada vez que uma estrela sai, 
esta reaparecerá em outro ponto com umanovatrajetória 
e velocidade. 


Modelagem : 

Mais uma vez, a modelagem começa pelo estudo do 
comportamento de uma só estrela, bastando então criar 
um universo cujo o conteúdo seja um conjunto de 
estrelas, com o comportamento previamente analisado. 

Neste programa, iremos utilizar um pouco de geometria 
para gerarmos o efeito das trajetórias, velocidades 
distintas e estrelas crescendo em perspectiva sobre o 
observador. 

Trajetórias Distintas : 


É utilizado o sorteio de um ângulo variando de O a 360 
graus, este ângulo determinará a trajetória da estrela, 
sendo que se utilizará também um atributo crescente R, 
que terá seu valor inicial sorteado em uma faixa pré- 
estabelecida (para as estrelas não partirem do mesmo 
ponto, sendo que as coordenadas x e y serão, 
respectivamente, r*cos(ângulo) e r*sin(ângulo). 


Velocidades e escalas distintas p/cada estrela : 

Para simplificar o programa, criou-se uma tabela de 
limites na qual a faixa em que o atributo R' (anteriormente 
mencionado) se encontra, determinará qual a escala e 
a velocidade que a estrela irá possuir em cada instante. 


Classe Ponto = (** Classe do Objeto Estrela **) 
Atributos Principais : 
Sleep => tempo de espera (controla velocidade). 
Dimensao => tamanho da estrela. 
angulos,anguloc => determinam a trajetória. 


Métodos Principais : 

InitPonto. 

MovePonto. 
Fim-Classe Ponto. 


Classe Universo = (** Classe do Objeto Universo **) 
Atributos Principais : 
vetpon => conjunto de estrelas. 
vetpas => tabela com dados para cálculo de velocidade e escala. 


Métodos Principais : 

InitUniverso. 

MoveUniverso. 
Fim-Classe Universo. 


Observações : 

Neste segundo programinha, utilizamos alguns 
macetes para dar um efeito mais real às imagens 
produzidas : 


1- Guarda-se o valor do seno e do cosseno em variáveis 
para evitar o recálculo a cada iteração, o que tomaria o 
programa mais lento. 


2- A simulação do paralelismo neste programa é um 
pouco mais complicada que a do programa anterior, pois 
nesta as estrelas movimentam-se em velocidades 
diferentes. Sendo assim, cada estrela possui um contador 
próprio, que quando atinge um certo valor determina o 
movimento da mesma. 


3- Para simplificar o cálculo da velocidade e da escala 
das estrelas utilizou-se uma tabela na qual somente 
uma comparação é necessária para mudar os atributos 
de cada estrela. A inicialização da tabela está no método 
Universo.InitUniverso e a atualização dos atributos de 
cada estrela se encontra no método Universo. 
MoveUniverso. 
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ESTPAS.PAS 


Program GeraEstrelas; 

uses crt,graph; 

const MAXPAS = 10; 

de uma estrela ) 
MAXPON = 50; 

paralelo ) 


Type 


( Maximo de estados 


( Maximo de pontos em 


regpon = Record 


ponpasso, sleep : Byte; ( 
sleep/dimensao ate um det.passo 
dimensao : Real; 


end; 
Ponto = Object 
corrente, 
( indica estado corrente 
passo, sleep, cont : Byte; 
( passo-iteracao, sleep-pausa ) 
Dimensao, ( 
Tamanho da estrela 
raio, ( 
Raio da estrela 
anguloc,angulos : Real; ( 
Trajetoria da estrela 
Procedure InitPonto; 


Procedure 
MovePonto (deltaraio:Byte); 
end; 
Universo = Object 
deltaraio, 
( variacao raio a cada iter. ) 
npas, 
( numero de passos ) 
npon : Byte; ( 
numero de estrelas 
vetpon - 
Array [1..MAXPON] of Ponto; ( Estrelas  ) 
vetPas : 
Array [0..MAXPAS] of regpon; ( Estados  ) 
Procedure 
InitUniverso (np:Byte); 
Procedure 


InsVetPas (vp, vs:Byte;vd:Real); 
Procedure MoveUniverso; 
end; 

eai a e ie de de) 

: Verifica placa grafica *) 

CESSAR 
Function InitGrap : Boolean; 
var gd,gm,ec Integer; 
begin 

Randomize; 

gd:=detect; gm:=4; 

initGraph(GD,GM,''); 

InitGrap := (GraphResult = grOk); 
end; 

ara RR | 

p Inicializa um ponto +) 

DA RD Rod ad a 
Procedure Ponto. InitPonto; 
var angulo : Real; 
begin 

corrente := 00; 

Dimensao = 01; ( 
dimensao da estrela 
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raio := Random(150)+70; ( raio 
varia entre 70 e 220 

angulo := Random(360) *pi/180; ( 
trajetoria ) 

anguloc := Cos (angulo); 

angulos «= Sin (angulo); 

passo = 0; iteracao 

sleep = 8; pausa 

cont = 7; cont.pausa 
end; 


* Move um ponto com raio variando 
deltaraio * 

(ereto dede de dd de e) 
Procedure Ponto.MovePonto (deltaraio:Byte); 
(==> Desenha Ponto com Cor/padrao Corrente 
Procedure DrawPonto; 
var centrox, centroy : Real; 


pn 


begin 
centrox := GetMaxx / 2; 
centroy := GetMaxy / 2; 


Bar (Round (centrox + anguloc*Raio), 
Round (centroy + angulos*Raio), 
Round (centrox + 
anguloctRaio+Dimensao), 
Round (centroy + 
angulos*Raio+Dimensao)) ; 
end; 
begin 
inc (cont); 
if cont = sleep then 


begin 
cont := 0; 
passo := passo + 1; 
SetFillStyle(01,00); (* APAGA O 
PONTO CORRENTE *) 
DrawPonto; 
Raio := Raio + deltaraio; (* REDESENHA 


O PONTO COM NOVO RAIO *) 
SetrFillStyle(01,15); 
DrawPonto; 
(* CASO O PONTO TENHA SAIDO DA TELA -> 
APAGA/INICIAL.PONTO *) 
1f ( Round (GetMaxx/2 + anguloc*Raio) >= 
GetMaxX ) or 
( Round (GetMaxx/2 + anguloc*Raio) <= 
0 ) or 
( Round (GetMaxy/2 + angulos*Raio) >= 
GetMaxY ) or 
( Round (GetMaxy/2 + angulos*Raio) <= 
0 ) then 


begin 
SetFillstyle(01,00); 
DrawPonto; 
Initponto; 
end; 
end; 
end; 


* Inicializa o Universo com np Estrelas *)' 


RAR RR RR A 
RLL RR RR) 


Procedure Universo. InitUniverso (np:Byte); 
var loop : Byte; 


begin 
npon = np; 
for loop := 1 to npon do 
vetpon [loop] . InitPonto; 
deltaraio := 10; 
npas = 0% 
vetpas [0] .ponpasso := 0; ( Garante 


primeiro incremento da var.corrente 
InsVetPas (4,8,1); 
InsVetPas(8,7,2); 
InsVetPas (12,5,3) 
InsVetPas (18,3,4) 
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InsVetPas (255,2,5); ( Garante que 
var.corrente nao sera +incr. 
end; 
RASA HEZXKAHAA: 
H Monta vetor com estados passo -> 
sleep, dimensao *) 
Cree a e 
Procedure 
Universo. InsVetPas (vp, vs:Byte;vd:Real); 
var ok Boolean; 
begin 
npas := npas + 1; 
with vetpas [npas] do 







begin 
ponpasso := vp; 
sleep := VS; 
dimensao := vd; 
end; 
end; 






mca 


* Move estrelas do universo, atualizando 
estados *) 
Cree a e ae det 
Procedure Universo.MoveUniverso; 
var loop : Byte; 
begin 

for loop := 1 to npon do with vetpon[loop] 
do 







begin 
vetpon [loop] .MovePonto (deltaraio); (* 
Move estrela *) 
lf 
(vetpon [loop] .passo>vetpas [corrente] .ponpasso) 
then 







begin (* Altera estado da estrela 
conforme condicao *) 
inc (corrente); 
vetpon [loop] .sleep E 
vetpas [corrente] .sleep; 
vetpon [loop] .dimensao : 
vetpas [corrente] .dimensao; 
end; 
end; 

Delay (4); (* Tempo de espera em 
milisegundos entre cada iteracao *) 
end; 
var ul 
begin 

(* Inicializa Ambiente *) 

1f not (InitGrap) then exit; 

(* Coloca 35 estrelas no universo *) 

ul.initUniverso (35); 

while not (keypressed) do (* Enquanto nao 
press.tecla -> mova universo *) 

ul.MoveUniverso; 

(* Encerra modo Grafico *) 

CloseGraph; 
end. 


MO KO LO] HTAN 


Program GeraPoligonos; 
uses crt,graph; 
const 
















universo; 












MAXVER 
de cada objeto ) 
MAXBUF 
rastro deixado 
MAXOBUJ 
em paralelo > 
Type ; 
' Poligono = Object 
nver, MAX 
Byte; ( nver numero de vertices ) 


10; ( Maximo de vertices 


10; ( Buffer Maximo de 


10; ( Maximo de Objetos 





MAX --> tam.do buffer. ) 

x,y, xl, yl - 
Integer; ( janela do objeto ) 

PX, PY, 
( pontos e deltas do obj. ) 

deltax, deltay : 
array [1..MAXVER] of Integer; 

VX, VY : 
array [1..MAXVER, 1..MAXBUF] of Integer; 

armazenam posicoes do 


objeto » 

posi,posa - 
Byte; 

( percorrem o vetor ) 

naofirst E 
Boolean; 


( indica se o buffer de 
linhas ja se encheu ) 
deltaxl,deltayl,ultcor : 
Integer; 
( deltas e cor do objeto ) 
Procedure 
InitPontos (nv, mb:Byte;px1l,py1l,px2,py2:Integer); 
Procedure RolaPontos; 
end; 
colecao = Object ( contem n objetos ) 
numobj) : Byte; 
vetobj : Array [1..MAXOBJ] 
of Poligono; 
Procedure 
GeraColecao (no,nv,mb:Byte) ; 
( Gera no -> num. de 


objetos 

nv -> num. de 
vertices 

mb -> tamanho do 
buffer ) 

end; 
(* Verifica Placa Grafica +) 
Function InitGrap : Boolean; 
var gd,gm,ec : Integer; 
begin 
Randomize; 


gd:=detect; gm:=4; 
initGraph(GD,GM,''); 


InitGrap := (GraphResult = grOk); 

end; 
* Inicializa Objeto conforme parametros * 
* nv,mb : vertices e tam.do buffer ) 
* pxl,pyl,px2,py2 : janela do objeto * 


Procedure 

Poligono. InitPontos (nv, mb:Byte;pxl,pyi,px2,py2: Integer) ; 
var laco2 : Byte; 

begin 

À x := pxl; y := pyl; ( Janela do Objeto 


xl := px2; yl := py2; 


nver := nv; ( numero de verti- 
ces ) 
— MAX = ; ( tamanho do buffer 
) 

posi := 0; posa :=1; naofirst := 
false; 


( Obtem coeficientes de variacao dos 
pontos que compoem o objeto ) 

deltaxl := Round (GetMaxX*0.02); deltayl 
:= Round (GetMaxY*0.02); 

for laco2 := 1 to nver do 

begin 
deltax [laco2] := deltaxl; 

deltay [laco2] := deltayl; 


px [laco2] := x + Random(x1l-x); 
py [laco2] := y + Random(yl-y); 
end; 


(* Cor do Objeto *) 
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ultcor := Random(15)+1; 
SetColor (ultcor) ; 
end; 
A Rola Pontos do Objeto conforme os deltas 
+ 
Procedure Poligono.RolaPontos; 
var laco, loop : Byte; 
begin 
for laco :=1 to nver do ( Atualiza. 
elementos conforme deltas 
begin 
(* Move os pontos conforme os 
coeficientes *) 
px flaco)] 
py [laco] 


:= px[laco) + deltax [laco]; 
:= py [laco] + deltay [laco); 


if px[laco] >x1 then px[laco)] := xl; 
if py[laco] >y1 then pyl[laco] := yl; 
1f px[laco] <x then px[llaco] := x; 
1£ pyllaco] <y then pyllaco] := y; 
(* Verifica mudanca de direcao caso 


colida com os limites da *) 
(* janela do objeto 
* 
if (px[laco] >= x1) or (px[laco] <= x) 
then deltax[laco] := 
(Ord (deltax [laco)]<0)*2- 
1) *Round ( (Random (20) +1) /(10*deltax1); 
if (py[laco] >= y1) or (py[laco]l <= 
then deltay [laco] 
(Ord (deltay [laco]<0)*2- 
1) *Round ( (Random (20) +1) /10*deltayl); 
end; 
posi := posi + 1; 
percurso fila ) 
if posi > MAX then posi := 
fila circular  ) 
( Controla se o buffer ja esta cheio ) 
naofirst := naofirst or (posi=l); 
if naofirst then ( Apaga elemento caso 
buffer ja esteja cheio ) 
begin 
SetColor (0); 
for loop := 1 to nver-l do 
Line (vx[logp, posa] ,vy [locp, posa] , wx[logp+l, posa] , vy [locp+l,posal ) ; 
if nver>2 then 
Line (vx[1, posa] ,vy [1,posal , vx [nver, posa] ,vy [nver, posal) ; 
SetColor (ultcor) ; 
posa := posa + 1; 





























y) 


( Incrementa 


1; ( Controla 





APRENDA INFORMATICA 
SEM SAIR DE CASA 


CURSO RÁPIDO ECONÔMICO E EFICAZ 


Sistema de apostilas. Basta seguir os 
exercícios e treinar diretamente no seu PC 


Estou enviando para Ricardo Flores, cheque 
cruzado e nominal à AUDIT SYST 

SERVIÇOS LTDA., CAIXA POSTAL 25096 
- RIO DE JANEIRO - CEP 20552-970 no 
valor total do pedido já incluídas as despesas 
postais. Te./Fax: (021)571-5908 










if posa>MAX then posa:=1; ( Controla 
£ila circular | 
end; 
for loop := 1 to nver do ( Guarda 
“posicao da fig.corrente na fila ) 























































begin 
vx[loop,posi] := px[loop]; 
vy [loop,posi] := py[loop]; 
end; 


( Verifica troca de cor -> 10 % de Chance 
a cada volta na fila ) 
1£ (naofirst) and (posi=MAX) and (Ran- 
dom (10) =0) then 
begin 
ultcor := Random(15)+1; 
SetColor (ultcor) ; 
end; 
for loop := 1 to nver-l do 
figura corrente ) 
Line (px [Loop] , py [loop] ,px [loop+1] + py [loop+1]); 
if nver>2 then 
Line (px [1], py [1] ,px[nver], py Inver]); 
end; 
(* Gera Colecao de no Objetos com nv verti- 
ces e com mb de buffer *> 


( Desenha 


Procedure 

Colecao.GeraColecao (no,nv,mb:Byte); 
var loop : Byte; 

. begin 


(* Inicializa Objetos *) 
for loop := 1 to no do 
vetobj [loop] . InitPontos (nv, mb, 0, 0, GetMaxX, GetMaY ); 
(* Enquanto nenhuma tecla move todos os 
objetos *) 
while not (keypressed) do 
begin 
for loop := 1 to no do 
vetobj [loop] .RolaPontos; 
Delay (Round (450/no) +Random(20)); 
end; 
end; 
var cl 
begin 
1f not (InitGrap) then exit; 
ct.GeraColecao(2,3,5); ( Gera Univ.c/2 
Obj, 3 Vert.e Buffer=5 ) 
CloseGraph; 
end. 


TABELA DE PREÇOS 


« Int. a Informática MS-DOS até 6.2 
« WordStar 5.0/6.0 

- Lotus 1-2-3 

« Quattro Pro 

« dBase Ill Plus Interativo 

« dBase III Plus Programado 

« Clipper 5.01 Básico 

« Word 2.0 

« Windows 3.1 

« Visual Basic 

« Word 6.0 


: Colecao; 
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t 7 X: “DOM o REBEL ASSAULT R$ 51,00 
TITU LOS DIVERSOS || || mi PROMO ES VU MES MEGA RACE R$ 34,00 | 
30 AWARD WINNNIG GAMES R$ 20,00 THE CHAOF R$39,00 E: | MAD DOG McCREF R$ 33,00 
AMERICAN SHAREWARE R$ 17,50 WRATH OF GODS R$ 39,00 MAD DOG 2 R$ 40,00 















HELL CAB R$ 39,00 
JUMP RAVEN R$ 39,00 
SEA WOLF R$ 39,00 
LITIL DIVIL R$ 39,00 
BATTLE ISLE 2 R$ 39,00 
JURASSIC PARK R$39,00 


FAÇA O SEU PEDIDO: 


1- Por telefone, fazendo depósito 
bancário BRADESCO: Ag.117-1CC: 
98741-7 ou UNIBANCO: Ag. 137 
CC: 113444-4 ou BANCO DO 


BEST OF VIVID (PORNÔ) R$ 49,50 
DAY OF TENTACLE R$ 44,90 
DR. FONTS (2000 Fontes Truc Type) R$ 26,40 
DR. CLIP ART (Clip Art) R$ 21,20 
DRACULA R$ 85,10 
F-15 STRIKE EAGLE 3 R$ 35,50 
GIRLS DOIN GIRLS R$ 32,50 
INCA 1 E INCA 2 R$ 49,40 e R$48,00 
VIRTUAL VGA R$ 41,60 
DREAM MACHINE R$ 67,60 


STRIP POKER R$ 31,00 
THE LAWNMOWER R$ 39,00 
7TH GUEST R$ 35,00 
IRON HELIX R$ 39,00 
TEN PACK (10 CD'S) R$ 69,00 
TEN PACK 2 (10 CD'S) R$ 69,00 
MASK (PORNÔ) R$ 32,00 
JUST GRANDMA AND ME R$ 33,00 
SEX VIVID (PORNÔ) R$ 32,00 
NIGHT WATHC 2 (PORNÔ) R$ 65,00 
STAR WARS CHESS R$ 31,00 
THE TOTAL HEART R$ 58,00 























































































































IMAGE LIBRARY/WAVE FOOL R$ 15,00 BRASIL: Ag. 0687-4 CC: 4798-8 em FAMILY HEALTH R$ 29,00 
= » de CLASSIC SOFT LTDA. O é 
eg cmi Ri : Es a cheque nominal no valor do RATES e Ep 
RAM lido. x ' 
BILIE HOLIDAY R$ 4800 diciodar Rê 2,80 de taxa de correio THE COVEN (PORNO) R$ 29,00 
[A 






HOME DESIGN R$ 84,00 
JOURNEYMAN PROJECT R$36,00 


na compra de cada CD. 


ATENDEMOS TODO BRASIL!! 






CONSULTE-NOS SOBRE OUTOS TÍTULOS... 
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COMING SOON IN 

AV. XANGRI-LA, 75 - C125 - BRAÚNAS JANUAR Y/95 | 
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inérocé HORIZONTE - MG CD-ROM TITLES 








ROTINAS 





Rotinas para tela 








Henrique Moraes Machado 





Assim como interfaces amigáveis servem para facilitar a 
vida do usuário, bibliotecas servem para facilitar a vida do 
programador. Mas como todos os programadores sabem, a 
parte mais chata da programação é justamente a interface 
com o usuário (a estrada para o inferno é pavimentada com 
Uls). Usuários têm a incrível capacidade de encontrar erros 
no seu programa tão bem desenvolvido. 

Prevenir é sempre melhor que remediar (já diziam os 
nossos avós). Uma das maneiras de se prevenir erros nos 
programas é a padronização. E é aí que entram as bibliotecas, 
e seja em linguagens à moda antiga (procedurais) ou na 
última geração de linguagens orientadas a objeto, uma boa 
biblioteca é sempre um diferencial. 

Agrande vantagem de construir sua própria biblioteca está 
no fato de que sua curva de aprendizado em relação a ela 


estará sempre no alto, já que foi você quem colocou tudo lá, . 


HEMDBEPRG 


// 
// HeM 1994 
// HeMDEF.PRG 


// Definicao de variaveis publicas para HeMScr 
// Dependencias: inkey.ch 


// 


fInclude “Inkey.ch” 


4) 

// A procedure DEFPUBLICS deve ser chamada antes 
de qualquer outra 

// nos programas em que forem utilizadas as 
funcoes de HeMScr.prg 


/( 


Procedure DefPublics () 
Public True = .T. 
Public False : .F. 


Public On : 1 
Public Off : .F. 
Public SetCor := If( IsColor(), “1”, “0” ) 
Do Case 
Case SetCor = “0” 
SetBlink( .F. ) 


Public CorErro = “W+/N,N+/W,n,n/n,W+/N” 
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Biblioteca - parte 3 


Micro: IBM XT/AT 
Memória: 512 Kbytes 
Vídeo: CGA/VGA 
Linguagem: € 
Requisitos: Nenhum 


você certamente sabe o que tem lá melhor do que ninguém. 

A primeira parte desta biblioteca traz rotinas de tela, tais 
como caixas de mensagem, menus suspensos e definição de 
cores. Algumas rotinas de string também são apresentadas 
aqui, pois elas são necessárias no funcionamento de algumas 
das funções de HeMScr.prg. 

Para criar a biblioteca pode-se usar o LIB da Microsoft, O 
TLIB da Borland, que são os mais comuns ou outro gerenciador 
de bibliotecas que você possua: 


TLIB <NOMELIB> -+HeMDEF.0B)J +HeMSCR.0B) - 
+HeMSTR.0B), 


— 


HENRIQUE MORAES MACHADO programa em Pascal, €, 
Cobol e Clipper e desenvolveu diversos sistemas para 
aplicação comercial. 





“W/N*,N/W,n,n/n,W/N*” 
“WN/N,N/W,n,n/n,N/W” 
“W/N,W+/N,n,n/n,W/N” 
“W/N,N+/W,n,n/n,W/N” 
“W/N,N+/W,n,n/n,W/N” 
“N+ /W” 

“W+ /N” 
“W/N,N+/W,n,n/n,W+/N” 
“N/W,W+/N,n,n/n,N/W” 
“W+/N,N+/W,;n,n/n,W+/N” 
“W/N*,N/W,n,n/n,W/N*” 
“W/N,N+/Wº,n,n/n,W/N” 
“N+/W,W/N,n,0/n,N+/W” 
“W/N,N+/W,n,0n/n,W/N” 
“W/N,N+/W,n,n/n,W/N” 
“W+/N,N/W,n,n/n,W+/N” 
“W+/W,W+/W,n,n/n,W+/W” 
“W+/N,W+/N,n,0/n,W+/N” 
“X/X,X/X,n,n/n,X/X” 
Chr( 0 + 7 * 16) 


Public CorErro2Z 
Public CorMain 
Public CorHelp 
Public CorMenu 
Public CorMenu2 
Public CorMeSel 
Public CorMeLite 
Public CorEdit 
Public CorMess : 
Public CorMess2 : 
Public CorMess3 
Public CorButt : 
Public CorTit 
Public CorTit2 
Public CorBac 
Public CorHeM 
Public CorLite 
Public CorPrompt 
Public CorSenha 
Public CorShadow : 


O O O O O O O O O 


Case SetCor == “1” 
SetBlink( .F. ) 
Public CorErro 
Public CorErro2 


“W+/R,R/N*,n,n/n,N/R*” 
“W+/BG,BG/R,n,n/n,W+/ 
Public CorMain = “W/N,GR+/W,n,n/n, GR+/ 
Public CorHelp “BG/W*,W/BG,n,n/n,BG/ 


“B/W,B/G,n,n/n,B+/W” 
“N+/W,N+/BG,n,n/n,W/ 


Public CorMenu 
Public CorMenu2 

















Public CorMesel 
Public CorMeLite 
Public CorEdit 
Public CorMess 


“B/G” 

“R/W” E 
“GR+/N,B/W,n,n/n,R/W” 
“N/GR*,BG+/N,n,n/n,N/ 





MM MM 









GR*” 





Public CorMess2 


“W+/BG, BG+/N,n,n/n,W+/ 





BG” 





Public CorMess3 
Public CorButt 
Public CorTit 
Public CorTit2 
Public CorBac 
Public CorHeM 
Public CorLite 
Public CorPrompt 


“W+/R,G/W,n,n/n,W+/R” 
“B/W,B/G,n,n/n,N+/R” 
“R/B,W/GR*,n,n/n,R/B” 
“W/B*,W/GR*,n,n/n,W/B*” 
“B/W,W+/B,n,n/n,B/W” 
“B+/W,W/B,n,n/n,B+/W” 
“W+/W,B+/W,n,n/n,W+/W” 
“GR+/B*,B+/G,n,n/n,G+/ 





MM MN RMMÃãIN 









B*” 





= “X/X,X/X,n,n/n,X/X” 
= Chr( 7 + 8 * 16) 





Public CorSenha : 
Public CorShadow : 
EndCase 









Public CorFundo := CorMain 












Public BoxSimple 
Public BoxDouble 
Public Box176 
Public Box177 
Public Box178 
Public Box219 
Public BoxsD 
Public BoxDS 
Public BoxFat 
Public Box254 
Public BoxFacel 
Public BoxFace2 
Public BoxCore 
Public BoxSCross 
Public BoxDCrogss 
Public BoxAtachsD 
Public BoxAtachDsS 
Public BoxHLin 
Public BoxVLin 
Public Box . 
Public BoxNul 
Public BoxSpace 
Public BoxFundo 


“ecpja-alo 
dia 2 A 








.. se e .. 





Replicate( Chr(1), 9) 
Replicate( Chr(2), 9) 
Replicate( Chr(3), 9) 
Cecplaot +” 
Cpotitog la! 
“D-D/Y-E| * 
“E-BIS-Ê)| 
“popla-p+-! 
a E AR A E é 


AX ZA 


Replicate( Chr(32), 9) 
Box176 


e na no ed 00 cu 04 au q! cu 0a cu o 06 4 US dé 60 cu 
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Public GrowDelay 
Public RollDelay 






NoSnow( .F. ) 
Return 






// That's all folks 


// HeM 1994 
// HeMSCR.PRG 
// funcoes de tela 
// Dependencias: HeMDef.prg / HeMStr.prg / 
achoice.ch / inkey.ch 
FInclude “Achoice.ch” 
FInclude “Inkey.ch” 
[trt 
* CenterWind( <nAltura>, «<nLargura>, «<nLinha>, 
«nColuna> ) —-> cCoords 
* Calcula as coordenadas para centralizar uma 
janela 
+ !! cCoords -> Coordenadas da janela 
LSup := Asc( SubStr( cCoords, 1, 1 


Set! 


CEsq := Asc( SubStr( cCoords, 


1))3) 
LInf := Asc( SubStr( cCoords, 


CDir := Asc( SubStr( cCoords, 


Function CenterWind( Altura, Largura, LDes, CDes 


Local LSup, CEsq, LInf, CDir, HMargem, 
VMargem, cCoords 
LDes := If( LDes == NIL, 0, LDes ) 









CDes := If( CDes == NIL, 0, CDes ) 
If ( Largura > MaxCol() - 1) .0or. ( Largura 
= 0) | 


CEsq := 0 
CDir := MaxCol () 
Else 
HMargem := Int( ( MaxCol() - Largura ) / 2) 
CEsq := HMargem - 1 
CDir := HMargem + Largura + 1 
EndI£ 


If ( Altura > MaxRow() - 1) .or. ( Altura == 
) 


LSup := 0 
LInf := MaxRow() 
Else 
VMargem := Int( ( MaxRow() - Altura ) / 2) 
LSup := VMargem - 1 
LInf := VMargem + Altura 
EndIf 
LSup += ( LDes ) 
LInf += ( LDes ) 
CEsq += ( CDes ) 
CDir += ( CDes ) 


cCoords := Chr( LSup ) + Chr( CEsq ) + Chr( 
LIn£f ) + Chr( CDir ) 
Return ( cCoords ) 
[ts 
* DrawWindow( <nLl>, «nCl>, «<nL2>, «nC2>, 
<cTipBox>, «<«cTitulo>,; 
* <«nGrow>, «<lShadow> ) 
da / 
Procedure DrawWindow( LSup, CEsq, LInf, CDir, 
TipMold, Cor, Titulo,; 

nGrow, lShadow ) 
Local SaveCor 


LSup := If( LSup == NIL, 0, LSup ) 

CEsq := If( CEsq == NIL, O, CEsq ) 

LInf := I£( LInf == NIL, MaxRow(), LInf ) 

CDir := I£( CDir == NIL, MaxCol(), CDir ) 

TipMold := I£( TipMold == NIL, BoxSimple, 
TipMold ) 

Cor := If£( Cor == NIL, CorMain, Cor ) 

Titulo := If( Titulo == NIL, “”, Titulo ) 

nGrow := I£( nGrow == NIL, 1, nGrow ) 

lShadow := If( lShadow == NIL, .T., IShadow ) 

SaveCor := SetColor( Cor ) 

Do Case 


Case nGrow == 
Growl( LSup, CEsq, LInf, CDir, TipMold, 
Cor ) 
Case nGrow == 
Grow2( LSup, CEsq, LInf, CDir, TipMold, 
Cor ) 
Case nGrow == 3 
Grow3 ( LSup, CEsq, LInf, CDir, TipMold, 
Cor ) 
OtherWise 
GrowWindow( LSup, CEsq, LInf, CDir, 
TipMold ) 
EndCase 
DispBox( LSup, CEsq, LInf, CDir, TipMold, Cor 


If ! Empty( Titulo ) 
SetColor( CorTit ) 
Titulo := Chr( 221 ) + PadC( Titulo, CDir - 
CEsq + 1 - 2) + Chr( 222) 
SetPos( LSup, CEsg ) 
DispOut ( Titulo ) 


EndI £ 
If ( CDir <« MaxCol() - 1) 
If lShadow 
DrawShadow( LSup, CEsq, LInf, CDir ) 
EndIf 
EndIf 


SetColor( SaveCor ) 
SetBlink( .F. ) 
Return 
PA ds Rod 
* CenterMenu( <nLin>, «<nOpcoes>, <aOpcoes>, 
<aMens>, «<nOpcaol> ) -> nOpcao 
Rar / 
Function CenterMenu ( Linha, NOpcoes, Opcoes, 
Mens, Opcaol ) 
Local SaveCor := SetColor () 
Local Coluna 


Local Foot := SaveFoot () 
Local Tam | :=0 
Local Conta e= 0 
Local Filler :=3 


ClearFoot () 
AEval( Opcoes, ( |Str| Tam += Len (Str) + 
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Filler + 2 )) 
Tam += Filler 
Coluna := Int( ( MaxCol() - Tam) /2) +12 
For Conta := 1 to NOpcoes a 
DrawButt ( Linha, Cóluna, Opcoes [Conta] ) 
Coluna += Len( Opcoes [Conta] ) + Filler + 2 
Next 


SaveCor := SetColor( CorButt ) 
Coluna := Int( ( MaxCol() - Tam) / 2) +12 
Tam = 0 
DispBegin () 
For Conta := 1 to NOpcoes 
If ValType( Mens ) == “A” 


& Linha, Coluna Prompt “* “ + Opcoes [Conta] + 
“ “ Message Mens [Conta] 
ElseIf ValType( Mens ) == “CC” 
é Linha, Coluna Prompt “ “ + opcoes [Conta] + 
“ “ Message Mens 
Else 
ê Linha, Coluna Prompt “ “ + Opcoes [Conta] + 
EndIf 
Coluna := Coluna + Len( Opcoes[Conta] ) + 
Filler + 2 
next 
DispEnd () 
Conta := 
If ValType( Opcaol ) == “Nº” 
Tam := Opcaol 
EndIf 
Menu to Tam 
SetColor ( SaveCor ) 
ClearFoot () 
RestFoot ( Foot ) 
SetBlink( .F. ) 
Return( Tam ) 
[/**% 


* pi <nLin>, «<cRotulo> ) -—> nTecla 
dede d 
Function CenterButt ( Linha, Rotulo ) 
Local Coluna, Tecla 
e «= Int ( ( MaxCol() - (Len(Rotulo ) + 2) 
) 2) 
Tecla := GetButt ( Linha, Coluna, Rotulo ) 
SetBlink( .F. ) 
Return ( Tecla ) 
[*** 


* id enLin>, «<nCol>, <cRotulo> ) 
vd 
Procedure DrawButt ( Linha, Coluna, Rotulo ) 
Local SaveCor 
DispBegin () 
ButtShadow( Linha, Coluna, Len( Rotulo ) + 2) 
SaveCor := SetColor( CorButt ) 
SetPos ( Linha, Coluna ) 
DispOut( “ “ + Rotulo + “ “) 
DispEnd() 
SetColor ( Savelor ) 
SetBlink( .F. ) 
Return 
PA dolo! 


e PRRRRaR <nLin>, «<nCol>, «<cRotulo> ) 
ve de * 
Procedure LiteButt ( Linha, Coluna, Rotulo ) 
Local SaveCor 
SaveCor := SetColor( CorLite ) 
DispBegin () 
SetPos( Linha, Coluna ) 
DispOut( “ “ + Rotulo + “ “) 
DispEnd () 
SetColor ( SaveCor ) 
SetBlink( .F. ) 
Return 
[ta 


* Faia <nLin>, «<nCol>, <cRotulo> ) —> nTecla 
vt 
Function GetButt ( Linha, Coluna, Rotulo ) 
Local SaveCor, Foot, Tecla 
Tecla := 
Foot := SaveFoot () 
ClearFoot () 
DrawButt ( Linha, Coluna, Rotulo ) 
SaveCor := SetColor( CorButt ) 
é Linha, Coluna Prompt “* “ + Rotulo + “ “ Mess 
“Tecle “ +; 
Chr ( 17 ) + Chr( 217 ) 
Menu to Tecla 
LiteButt ( Linha, Coluna, Rotulo ) 
RestFoot ( Foot ) 
SetColor ( SaveCor ) 
SetBlink( .F. ) 
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Return ( LastKey (O) ) 
PA dt dol 


* ClearFoot () 

dem / 

Procedure ClearFoot 
Local SaveCor 
SaveCor := SetColor( CorMenu ) 
SetPos ( MaxRow() - 1, 0) 
DispOut ( Space( MaxCol() + 1) ) 
SetColor ( SaveCor ) 
SetBlink( .F. ) 


Return 
[ta 
* SaveFoot() —-> cSavedFoot 
ae / 
Function SaveFoot 
Return ( Savescreen( MaxRow() - 1, 0, MaxRow () - 
1, MaxCol() ) ) 
PA dhodiol 
* RestFoot ( <cSavedFoot> ) 
sm / 
Procedure RestFoot ( Foot ) 
Restscreen( MaxRow() - 1, O, MaxRow () - 1, 


MaxCol (), Foot ) 
SetBlink( .F. ) 
Return 
PA odod 
* CenterFoot ( <cMensagem> ) 
wet / 
Procedure CenterFoot ( Mensagem ) 
ClearFoot () 
setPos( MaxRow() - 1, 00 ) 
DispOut ( PadC( Mensagem, MaxCol() + 1), 
CorMenu ) 
SetBlink( .F. ) 
Return 
[tas 
* LeftFoot ( <cMensagem> ) 
“ma / 
Procedure LeftFoot ( Mensagem ) 
ClearFoot () 
SetPos( MaxRow() - 1, 0) 
DispOut ( Pad( Mensagem, MaxCol() + 1), 
CorMenu ) 
SetBlink( .F. ) 
Return 
[tax 
* CenterMess( <cMensagem>, <cTitulo> ) —> 
nTecla 
dd / 
Function CenterMess ( Mensagem, Titulo ) 
Local LSup, CEsq, LInf, CDir, cCoords, 
Largura, Altura,; 
SaveCor, Rotulo, Window, SaveCur, Tecla, 
Centro,; 


VetMess := (), Conta, Li 
Rotulo := “Ok!” 
Mensagem := If( Mensagem == NIL, “Tecle “ + 


Chr( 17 ) + Chr( 217 ), Mensagem ) 
VetMess := Str2Vet( Mensagem, “;” ) 
Altura := Len( VetMess ) + 3 
Largura := 0 
AEval( VetMess, ( |Str| Largura := Max( 

Largura, Len( Str ) ) )) 


Centro := Largura 

LSup := CEsq := LInf := CDir := 0 

Titulo «= If( Titulo == NIL, *“”, Titulo ) 
Largura «= Max( Largura, Len( Rotulo ) ) + 3 


cCoords «= CenterWind( Altura, Largura ) 
CalcCoords ( cCoords, eLSup, eCEsq, LInf, 
ecDir ) 
Window := DrawCW( Altura, Largura, BoxSD, 
CorMess, Titulo,, 2 ) 
SaveCor := SetColor( CorMess ) 
SaveCur := SetCursor( O ) 
Li := LSup + 1 
For Conta := 1 To Len( VetMess ) 
SetPos( Li, CEsq+3 ) 
DispOut ( PadC( VetMess [Conta], Centro )) 
Li ++ 
Next 
BeepMed () 
Tecla := CenterButt ( LInf - 2, Rotulo ) 
BeepMed () 
SetColor ( SaveCor ) 
RestScreen( LSup, CEsq, LInf+1, CDir+2, Window 


SetBlink( .F. ) 

SetCursor ( SaveCur ) 

setPos( 0, 0) 
Return( Tecla ) 





PAS 


* CenterErro( <cMensagem>, <cTitulo> ) -> nTecla 
LAS . 
Function CenterErro( Mensagem, Titulo ) 
Local LSup, CEsq, LInf, CDir, cCoords, Largura, 
Altura,; 
SaveCor, Rotulo, Window, SaveCur, Tecla, 
Centro, ; 
VetMess := (), Conta, Li 
Rotulo := “Erro!” 
Mensagem := If( Mensagem == NIL, “Tecle “ + 
Chr( 17 ) + Chr( 217 ), Mensagem ) 
VetMess := Str2Vet ( Mensagem, “;” ) 
Altura := Len( VetMess ) + 3 
Largura := 0 
AEval( VetMess, ( |Str| Largura := Max( 
Largura, Len( Str ) ) ) 
Centro := Largura 
LSup := CEsq := LInf := CDir := 0 


Titulo := If( Titulo == NIL, *“*”, Titulo ) 
Largura := Max( Largura, Len( Rotulo ) ) + 3 
cCoords := CenterWind( Altura, Largura ) 


CalcCoords( cCoords, QLSup, GCEsq, ELINnf, ECDir 
Window := DrawCW( Altura, Largura, BoxsSD, 
CorErro, Titulo,, 2 ) 
SaveCor := SetColor( CorErro ) 
SaveCur := SetCursor( 0 ) 
Li := LSup + 1 
For Conta := 1 To Len( VetMess ) 
SetPos( Li, CEsq+3 ) 
DispOut ( PadC( VetMess [Conta], Centro ) ) 
Li ++ 
Next 
BeepLo () 
BeepLo () 
Tecla := CenterButt ( LInf - 2, Rotulo ) 
BeepMed () 
SetColor ( SaveCor ) 
RestScreen( LSup, CEsq, LInf+1, CDir+2, Window 


SetBlink( .F. ) 
SetCursor ( SaveCur ) 
SetPos( 0, 0) 

Return ( Tecla ) 

[nas 

* CenterTit( <nLinha>, <cTitulo>, «<lFull> ) 

add / 

Procedure CenterTit (. Linha, Titulo, lFull ) 
Local Coluna, SaveCor := SetColor( CorTit ) 
lFull := If( lFull == NIL, .F., IFull ) 

If lFuil 

SetPos( Linha, O ) 

DispOut ( PadC( Titulo, MaxCol() + 1)) 
Else 

Coluna := At( Titulo, PadC( Titulo, MaxCol () 

+ 1, Chr( 1))) 

SetPos ( Linha, Coluna ) 

DispOut ( Titulo ) 

SetColor ( SaveCor ) 

SetBlink( .F. ) 
EndIf 

Return 

PA AR! 

* MainScreen( <cProgName>, <cAutor> ) 

eia / 

Procedure MainScreen( Titulo, Maker ) 

Local LSup, CEsq, LInf, CDir, cCoords, SaveCor, 

Fundo, SaveCursor 
SaveCursor := SetCursor( 0 ) 

SaveCor := SetColor( CorMain ) 

Set ScoreBoard Off 

Set Message to ( MaxRow() - 1 ) Center 

Fundo := BoxFundo 

* Janela Principal * 

cCoords := CenterWind( 0, 0) 

LSup := Asc( SubStr( cCoords, 1, 1) 

CEsq := Asc( Substr( cCoords, 2, 1) 

LInf := Asc( Substr( cCoords, 3, 1) 

CDir := Asc( Substr( cCoords, 4, 1) 

DrawWindow( LSup, CEsq, LInf, CDir, F 
CorBac,,, .F. ) 

SetColor( CorTit ) 

SetPos( 0, 0 ) 

DispOut ( Space( MaxCol() + 1)) 

CenterTit ( 0, Titulo ) 

* Barra de Menus * 

SetColor ( CorMenu ) 

SetPos ( E RM 0 ) 

DispOut ( Space( MaxCol() + 1)) 

* Barra de Mensagens * 


SetColor ( CorMenu ) 
SetPos( MaxRow() - 1, 0) 
DispOut ( Space( MaxCol() + 1)) 
SetColor( CorTit ) 
SetPos( MaxRow(), O ) 
DispOut ( Space( MaxCol() + 1)) 
If Maker == NIL 
CenterTit ( MaxRow(), “ “) 
Else 
CenterTit ( MaxRow(), Maker ) 
EndIf 
SetColor ( SaveCor ) 
SetBlink( .F. ) 
SetCursor ( SaveCursor ) 
Return 
[tt 
* MainMenu( <nOpcoes>, <a0pcoes>, <aMens>, 
«nOpcaol> ) -> nOpcao 
“a / 
Function MainMenu ( NOpcoes, Opcoes, Mens, Opcaol 


) 
Local Opcao, Tam, Conta, SaveCor, Coluna, 
Foot, Linha 
Foot := SaveFoot () 
ClearFoot () 
EMainMenu () 
SaveCor 
Tam 
Conta 
Linha 
For Conta = 1 To NOpcoes 
Tam += Len( Opcoes [Conta] ) + 2 
Next 
Tam += 2 
Coluna := 3 
Tam := 
DispBegin () 
For Conta = 1 to NOpcoes 
If ValType( Mens ) == “A” 
8 Linha, Coluna Prompt Opcoes [Conta] Mes- 
sage Mens [Conta] 
Else 
é Linha, Coluna Prompt Opcoes [Conta] Mes- 
Sage Mens 
EndI £ 
Coluna := Coluna + Len( Opcoes [Conta] ) + 2 
Next 
DispEnd () 
Conta := 
If Opcaol «<> NIL 
Tam := Opcaol 
EndI £ 
Menu To Tam 
SetColor( SaveCor ) 
ClearFoot () 
RestFoot ( Foot ) 
SetBlink( .F. ) 
Return ( Tam ) 
[tes 
*  EMainMenu () 
* Apaga o menu criado por MainMenu() da tela 
wa / 
Procedure EMainMenu 
Local SaveCor := SetColor( CorMenu ) 
SetPos( 1, 0) 
DispOut ( Space( MaxCol() + 1)) 
SetColor( SaveCor ) 
SetBlink( .F. ) 
Return 
[dt 
* SubMenu( <nLin>, «<nCol>, «<nOpcoes>, 
<aOpcoes>, «<cTipBox>, «<lApaga>,<cTitle>, 
<cFunc>, <lShadow> ) —-> nOpcao 
***/ 
Function SubMenu ( Linha, Coluna, NOpcoes, 
VOpcoes, TipBox, Apaga,; 
cTitle, cFunc, I1lShadow ) 
Local Conta, LSup, CEsq, LInf, CDir, cCoords, 
Larg, Altura,; 
Window, SaveCor, Opcao, alores := () 
alores := Str2Vet ( CorMenu, *“,” ) 
Altura := If( NOpcoes < 11, NOpcoes, 10 ) 
Larg := 
Apaga := If( Apaga == NIL, .T., Apaga ) 
cTitle := If( cTitle == NIL, “”, cTitle ) 
cFunc := If£f( cFunc == NIL, “FService”, cFunc ) 
lShadow := I£( IlShadow == NIL, .T., lshadow ) 
AEval( VOpcoes, ( |Str| Larg := Max( Larg, 
Len( Str ) ) )) 
Larg := Max( Larg, Len( cTitle ) + 2) 
Do While ( Linha + Altura + 1 ) > ( MaxRow() - 


tColor ( CorMenu ) 


Se 
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0 
1 


MICRO SISTEMAS 33 








ETR gn pa ETR E RCA Pr sr SPEA TR 


ERG RR rp gr: er TEOR AA E + 


ETs NO 2 ME E RO A PR 





PORNOGRAPHIC ANIMNATIONS 
VOL 1410(t0H) 
(são 10 discos que podem ser 
utiizados separadamente) 


PORNOGRAPHIC MANDY (td) 
BRAZIL SEX (CGA Itad: 


PORNOGRAPHIC GIF PHOTOS 
VOL 1450 (50k) 
(são 50 discos que podem srt 
adquiridos separadamente] 


0324 - TIE FIGHTER (2H) 
A sensacional sequência ão 
X-Wing e Rebel Assault! 


CARS nen E É | 
! é 


» 
TT teme eçãs SM ns AR Go O 
4 Ases 


0060 - SINK OR SWMMM (1H) 
Um dos melhores jogos 
de raciocínio e ação! 


0097 - SILVERBALL (1%4) 
0316 - PINBALL DREATIS (14d) 
0305 - PINBALL DREATAS 2 (14d) 
0104 - 8 BALL DELUXE (Cud) 
0279 - EPIC PINBALL (Cad) 
0309 - PINBALL FANTASY (Tud) 
0073 - PINBALL for WINDOV:S (2 
0174 - TRISTAN PINBALL (Tad) 
0040 - NIGHT MISSION (1ud) 


) 


0397 - DETROIT (1) 


ii 


os mapra 
Zu] 
o, 
Vim 


Os melhores jogos infantis: 


0153 - FATTY BEAR'S PARTY (17) 
0114 - PUTT PUTT PARADE (1 
0115 - PUTT PUTT ON THE MOON e 

0130 - SCOOTER MAGKC CASTLE 
0301 - MATH RESCUE ( a 
0312 - WORD RESCUE (1 1? 

0304 - READER RABBIT (16) 
0101 - MICKEY'S 123 PAR 
0102 - MICKEY'S JIGSAW PUZZI E im 
0093 - MICKEY, THE READER (3 
0020 - BARBIE (1H 


0018 - FUNNY FACE 1 (18) 
0207 - SHOOTING GALLERY (18) 


Outros programas infantis: 
0044 - CHILDREN'S PUBLISHING (1 gm) 


0348 - BARBIE PRINT-SHOP (1 
0054 - ALPHABET BLOCKS WIN Er 


sa 


) 


0138 - LION KING PRINT-SHOP 
0217 - ORBITS ASTRONOMY ( 


0081 - RISKY WOODS (1H) 


0374 - YO! JOE! (2H) 


0062 - TERMINATOR 2 (18) 0297 - COOL SPOT TMU 


0314 - ZO0OL 2 (um 


À 


; 


Preços: cada disquel 


0136 - F-29 RETALIATOR (18) 
0348 - F-15 STRIKE EAGLE Ill (1H) 


; . ig = r v7 REA ” | " 
| | Atenção: Todos os prá 
versões “trial”, "dem; 
magens ou animações : 
18 anos. Todos os ;: 
densidade, requerem. 
dom se: 

Em 5 1/4 ps E: 


NEMESIS compras polo 


Janeiro - RJ. Ou venha! 
de Setembro, 91 
Conheça né 


0148 - OVERLORD (3) 


Os melhores jogos automobilísticos: 


0219 - LOTUS IN (Mo 
0087 - SPEED RACE ad, 
0006 - INDYCAR RACING (3a) 
0039 - GRAN PRIX WORLD 
0043 - FORD SIMULATOR ( E 
0044 - FORD SIMULATOR 2 (1 ) 
0057 - INDIANAPOLIS 500 (1H 
0094 - TEST DRIVE IH (1 IR 
0194 - STUNT DRIVERS (1 
0149 - GRAN PRIX UNLIMITED (18) 
0160 - STREET ROD (18 À 
0090 - NIGEL MANSEL q ) 
0022 - IRONMAN OFFROAD (18) 


0399 - HOCUS poi 








0022 - STEREO for WINDOWS (283) 
0315 - VISUAL PLAYER 2.0 (15) 
0359 - CD BOX 3.00 (1H 
0180 - HAUNTED HOUSE SOUNDS (18) 
0508 - SCREAM TRACKER 3 (18) 


Enciclopédias em disquetes: 
0514 - PC GLOBE 6 (6H 


0454 - HISTORY ADVENTURE (SH) 
0460 - SPACE ADVENTURE (em) 
E (88 


0041 - VIDEO for WINDOWS TRIAL (1) 
Flimes para “Video for Windows”: 
” 0118 - IMPLOSION (1 
o 





0119 - ROCKBOAT (168 
0120 - RICHARD NIXO 
0121 - ULTRASOUND (1 
0122 - MAE WEST ENCOUNTER (13) 
0123 - CAR CRASHING (1) 





0084 - 3D DINOSAUR ADVENTU 
0149 - BODY WORKS 3.0 WINDOWS (5&!) 


— do ANANRANANEARSS EE 
par | | | I ! | | 1 I | | L. 
Í ND ANN ANA MND | 
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ra 
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2 5 1/4 (nl) = R$ 3,00, cada 3 1/2 (6) = R$ 5,001 


igramas anunciados aqui são de domínio público, ER q aÃ da Ad 
P” ou shareware. E ii que contenham O RAN O VA e 18) 
eróticas somente serão vendidos para maiores ' 

ramas são gravados em disquetes de alta pi a 
monitor VGA e winchester. Todos os programas 
gravados em disquetes de 3 1/2 (6). 

ramas assinalados com o simbolo "E". 
ido mínimo é de 3 disquetes. 
lo, envie vale-postal ou cheque nominal à 
TDA. - Caixa postal 4.583 Cep 20.001-970 - Rio de 
Soalmente ao nosso "show-room”" na rua Sete 

* sala 1.203 - Centro - Rio de Janeiro - RJ. 
'8so sistema de vendas por telefone: 


2-0348 ou FAX (021) 242-4760. 
| catálogo completo cheio de novidades! 
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0511 - GAMMA CAD WINDOWS (1H 
0488 - CAD DRAW for WINDOWS (1 
0459 - AIRCRAFT CAD WINDOWS (1) 0244 - CAKEWALK for WINDOWS (E 


0539 - PROTOCAD for NDOWS. (AM) | 





0242 - RECORDING SESSION WIN (1H 
0248 - BAND IN À BOX WIN/DOS (il 
0255 - PASSPORT MUSIC STUDIO (158) 





Pacote para iniclantes: 


WS (18) inclui: planilha de cálculos, gerenciador de 
E banco de dados, editor de textos, agenda 






rosa e ço Ae À 
o "Sc " : 
Versão Dara WINDOWS vm) RE e ] 

CNN AM 0108 - BILL GATES DO WINDOWS o | 
1a) 0] E) - DO WIN (16 


* 0006 - SCREEN ANTICS WINDOWS (1 | 
0042 - WHOOP IT UPI WINDOWS E Agendas para Windows: 
) 


0525 - BETTY BOOP ON WINDOWS (2 0142-P NS (1 
0181 - ENERGIZER BUNNY VAN (118) | Did2 - PLANT for WINDOWS tia) 


| , na 52; CHESTMAS for WMNDOWS (118) 0494 - ORGANIZER LITE for WIN (3 
FKE (18) e 0900 - WINDOWS BOOSTERS (6d) 0390 "ADRESS BOOK WINDOWS (18) 





É 


0529 - CALENDAR MAKER VAN 0390 - ADRESS BOOK WINDOWS 








1) 
Linha — 
EndDo 
ii While ( Coluna + Larg + 1) > ( MaxCol() - 


Coluna — 
EndDo 
LSup := Linha 
CEsq := Coluna 
LInf := Linha + Altura + 1 
CDir := Coluna + Larg + 1 
Window := SaveScreen( LSup, CEsq, LInf+l1, 
CDir+2 ) 
SaveCor := SetColor( CorMenu ) 
DrawwWindow( LSup, CEsq, LInf, CDir, TipBox, 
CorMenu, cTitle, 2, 1lShadow ) 
Opcao := AChoice( LSup+1l, CEsq+l, LInf-l1, 
CDir-1l, VOpcoes, .T., cFunc ) 
Ea Just a little detail that was driving me 
ma 
If Opcao > O 
SetPos( Row(), CEsq + 1) 
DispOut ( Pad( VOpcoes [Opcao], Larg ), 
aCores[ 2 ]) 
EndIf 
If Apaga 
RestScreen( LSup, CEsq, LInf+1, CDir+2, 
Window ) 
EndI £ 
SetColor ( Savelor ) 
SetBlink( .F. ) 
Return ( Opcao ) 
PA ddod 


* iniidai - Service function for SubMenu 
XX* ; 
Function FService( nMode, nElement, nRow ) // 
Service function for SubMenu 
Local nReturnValue := AC CONT 
Do Case E 
Case nMode == AC IDLE 
nReturnValue := AC CONT 
Case nMode == AC HITTOP 
BeepLo () 
Keyboard Chr( K CTRL PGDN ) 
Case nMode == AC HITBOTTOM 
BeepLo () 
Keyboard Chr( K CTRL PGUP ) 
Case nMode == AC NOITEM 
nReturnValue := AC ABORT 
Case nMode == AC EXCEPT 
* nkey := LastkKey () 
Do Case 
Case nkey == K ESC 
nReturnValue := AC ABORT 
Case nkey == K HOME 
Keyboard Chr( K CTRL PGUP ) 
nReturnValue := AC CONT 
Case nkey == K END 
Keyboard Chr( K CTRL PGDN ) 
nReturnValue := AC CONT 
Case nkey == K LEFT .Or. nkey == K RIGHT 
nReturnValue := AC CONT 
Case Upper ( Chr( nkey ) ) 
“ABCDEFGHIJKLMNOPORSTUVWXYZ1234567890 “ 
nReturnValue := AC GOTO 
Case nkey == K ENTER 
nReturnValue := AC SELECT: 
EndCase Ei 
EndCase 
Return ( nReturnValue ) 
[Rea 
* Confirma( <cMensagem>, <cTitle>, «<lDefault> ) 
—>» 1LYesOrNo 
desce / 
Function Confirma ( Mensagem, Tit, Sim ) 
Local VetOps [2], Opcoes, LSup, CEsq, LInf, 
CDir,; 
cCoords, Window, SaveCor, Retorno, 
SaveCur ,; 
VetMess := (), Conta, Li, Centro 
Sim := If( Sim == NIL, .T., Sim ) 
Tit := If( Tit == NIL, “”, Tit ) f 
Mensagem := If( Mensagem == NIL, “Confirma a 
operação?”, Mensagem ) 


If ! Sim 
Opcoes := “ Não Sim * 
VetOps := ( “Não”, “Sim” ) 
Else 
Opcoes := *“ Sim Não * 
“Vetops := ( “Sim”, “Não” ) 
EndI f 
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MeConf := “Use ag setas ou a primeira letra da 
opção” 
VetMess := Str2Vet ( Mensagem, *“;” ) 
Altura := Len( VetMess ) + 3 
Largura := 0 
AEval( VetMess, ( |Str| Largura := Max( 
Largura, Len( Str ) ) )) 
Centro := Largura 
LSup := CEsq := LInf := CDir := 0 
Largura += 2 
cCoords := CenterWind( Altura, Largura ) 
CalcCoords ( cCoords, €LSup, CCEsq, OLInf, 
ecDir ) 
Window := DrawCW( Altura, Largura, BoxSD, 
CorMess, Tit,, 2) 
SaveCor := SetColor( CorMess ) 
SaveCur := SetCursor( O ) 
Li := LSup + 1 
For Conta := 1 To Len( VetMess ) 
SetPos( Li, CEsq+3 ) 
DispOut ( PadC( VetMess [Conta], Centro ) ) 
Li ++ 
Next 
BeepMed () 
If Sim 
If CenterMenu( LInf-2, 2, VetOps, MeConf ) 
== 1 
Retorno := .T. 
Else 
Retorno := .F. 
EndIf 
Else 
If CenterMenu( LInf-2, 2, VetOps, MeConf ) 
== 2 
Retorno := .T. 
Else 
Retorno := .F. 
EndIf 
Endl £ 
SetColor( SaveCor ) 
RestScreen( LSup, CEsq, LInf+1, CDir+2, Window 


SetBlink( .F. ) 

SetCursor ( SaveCur ) 

SetPos( 0, 0) 
Return ( Retorno ) 
[tea 
* FootConfirma( <cMensagem>, <lDefault> ) —> 
1lYesOrNo 
Wa / 
Function FootConfirma ( Mens, Sim ) 

Local Foot, Linha, Coluna, Opcao, Retorno, 
SaveCor, SaveCur 

Mens := If (Mens == NIL, “Confirma a 
operação?”, AllTrim (Mens) ) 

Mens := If (Len (Mens) > 70, Left (Mens, 60), 
Mens) 

Sim := If (Sim == NIL, .T., Sim) 

Foot := SaveFoot () 

Coluna := Len (Mens) + 3 

Linha := MaxRow() - 1 

Opcao := If (Sim, 1, 2) 

SaveCor := SetColor (CorButt) 

SaveCur := SetCursor (0) 

LeftFoot (Mens) 

e Linha, Coluna + 1 Prompt *“ Sim *“ 

& Linha, Coluna + 7 Prompt “ Não “ 

Menu To Opcao 

If Opcao == 1 

Retorno := .T. 
Else 
Retorno := .F. 

EndIf 

ClearFoot () 

RestFoot (Foot) 

SetColor (SaveCor) 

SetBlink (.F.) 

SetCursor (SaveCur) 
Return ( Retorno ) 
Ad dos 
* CenterGet ( <cPrompt>, «<cTipo>, «<nLen>, 
pirar id [(lvalid], [Init], [cTitulo] ) —> Value 
RAS 
Function CenterGet ( Mensagem, Tipo, Tamanho, 
Mascara, Valido, Init, Titulo ) 

Local GetList := (), AddLin := 0 . 

Local LSup, CEsq, LInf, CDir, cCoords, Window, 
SaveCor,; 

Retorno, SaveCur, SaveRow := Row(), 

SaveCol := Col() 

Valid :a= If( Valido == NIL, .T., Valido ) 
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Mascara := If( Mascara == NIL, “”, Mascara ) 
Titulo := If( Titulo == NIL, “”, Titulo ) 
Mensagem += If( Right ( Mensagem, 1) l= “:”, 
“4”, “war ) 
If Init == NIL 
Do Case 
Case Tipo 
Retorno 
Case Tipo 
Retorno 
Case Tipo 
Retorno 
Case Tipo 
Retorno 
OtherWise 
SetBlink( .F. ) 
Return ( “” ) 


“(Go 

Space ( Tamanho ) 
“ N” 

0 

“ T sr 

Br ni 

“u D s" 

Date () 


. 


EndCase 
Else 
If Tipo == “C” 
Retorno := Pad( Init, Tamanho ) 
Else 
Retorno := Init 
EndIf 
EndIf 


If Tamanho > 50 
Largura := Len( Mensagem ) + 50 + 2 
Mascara := If( ! ( “GS” S Mascara ), “OS50” + 
Mascara, Mascara ) 
Else 
Largura := Len( Mensagem ) + Tamanho + 2 
EndIf 
Altura := If( Empty( Titulo ), à, 3) 
cCoords := CenterWind( Altura, Largura ) 


LSup := Asc( SubStr( cCoords, 1, 1 )) 
CEsq := Asc( SubStr( cCoords, 2, 1 )) 
LInf := Asc( SubStr( cCoords, 3, 1)) 
CDir := Asc( SubStr( cCoords, 4, 1)) 

Inf 


Window := SaveScreen( LSup, CEsq, LInf+1, 
CDir+2 ) 
DrawwWindow( LSup, CEsq, LInf, CDir, BoxFat, 
CorEdit, Titulo ) 
SaveCor := SetColor( CorEdit ) 
SaveCur := SetCursor( 3 ) 
AddLin := LSup + Int( ( LInf - LSup ) / 2) 
If ! Empty( Valido ) 
€ AddLin, CEsq+2 Say Mensagem Get Retorno 
Pict Mascara Valid Valido 
Else 
& AddLin, CEsq+2 Say Mensagem Get Retorno 
Pict Mascara 
EndI f£ 
Read 
BeepMed () 
SetColor( SaveCor ) 
RestScreen( LSup, CEsq, LInf+1, CDir+2, Window 


SetBlink( .F. ) 
SetCursor ( SaveCur ) 
SetPos ( SaveRow, SaveCol ) 
Return ( Retorno ) 
[Res 
* BeepLo() 
aaa / 
Function BeepLo 
Tone ( 150,1 ) 
Return( .T. ) 
td 


* BeepMed() 

dd / 

Function BeepMed 
Tone( 500,1 ) 

Return( .T. ) 

[2% 

* BeepHi () 

deem / 

Function BeepHi 
Tone ( 2000,1 ) 

Return ( .T. ) 

[tea 

* BeepHighest () 

ada / 

Function BeepHighest 
Tone ( 5000,2 ) 

Return( .T. ) 


w*%* 


* RollDown () 
“aa / 
Procedure RollDown 
for Conta := 1 To MaxRow() + 1 
Scroll (0, 0, MaxRow(), MaxCol -1 


For Conta2 := 1 To RollDelay 
// so para gastar tempo 
Next 
Next 
Set Color To 
Cls 
SetBlink (.F.) 
Return 
[detete 
* CenterPrompt ( <cMens> ) —> cSavedWindow 
a / 
Function CenterPrompt ( Mensagem ) 
Local LSup, CEsq, LInf, CDir, cCoords, 
Largura, Altura,; 
SaveCor, Window, PrWindow, SaveXT 
If ( Len( Mensagem ) > MaxCol() - 2) 
Mensagem := Left ( Mensagem, MaxCol() - 2) 


Largura := Len( Mensagem ) + 4 
Altura :=3 
cCoords := CenterWind( Altura, Largura ) 


LSup := Asc( SubStr( cCoords, 1, 1 )) 

CEsq := Asc( SubStr( cCoords, 2, 1 )) 

LInf := Asc( SubStr ( cCoords, 3, 1)) 

CDir := Asc( Substr( cCoords, 4, 1 )) 

Window := SaveScreen( LSup, CEsq, LInf+1, 
CDir+2 ) 

SaveXT := ISXT 

IsXT := .T. 

DrawWindow( LSup, CEsq, LInf, CDir, BoxSimple, 
CorPrompt ) 

IsXT := SaveXT 

SaveCor := SetColor( CorPrompt ) 

SetPos( LSup+2, CEsq+3) ; DispOut( Mensagem ) 

SetPos( 0, 0) 

SetColor( SaveCor ) 

PrWindow := cCoords + Window 

SetBlink( .F. ) 
Return ( PrWindow ) 
[Ra 
* ClearPrompt ( <cSavedWindow> ) 
na / 
Procedure ClearPrompt ( PrWindow ) 

Local LSup, CEsq, LInf, CDir, cCoords, 
SaveCor, Window 

cCoords := SubStr (PrWindow, 1, 4) 

Window := Substr (PrWindow, 5, Len (PrWindow) 
- 4) 


LSup := Asc (SubStr (cCoords, 1, 1)) 
CEsq := Asc (SubsStr (cCoords, 2, 1)) 
LInf := Asc (SubStr (cCoords, 3, 1)) 


CDir := Asc (SubStr (cCoords, 4, 1)) 
RestScreen (LSup, CEsq, LInf+1, CDir+2, Win- 
dow) 
SetBlink (.F.) 
Return 
XXS 
“* DrawShadow( <nLl>, «nCl>, «<nL2>, «nC2> ) 
aaa / 
Procedure DrawShadow( LSup, CEsq, LIn£f, CDir ) 
Local ls, ce, li, cd, Attr, Window 
If IsColor () 
SAttr := CorShadow 
Else 
SAttr := Chr( 7 + 0 * 16) 


in( Linf + 1, MaxRow() ) 
in( LInf + 1, MaxRow() ) 
Esq + 2 

cd := Min( CDir + 2, MaxCol() 

Window := SaveScreen( ls, ce, li, cd) 

Window := TransForm( Window, Replicate( “X” + 
SAttr, Len( Window ) / 2)) 

RestScreen( 1s, ce, li, cd, Window ) 

ls := LSup + 1 | 

li := LInf | 

ce := CDir + 1 

cd := Min( CDir + 2, MaxCol() ) 

Window := SaveScreen( ls, ce, li, cd) 

Window := TransForm( Window, Replicate( “X” + 
SAttr, Len( Window ) / 2) 

RestScreen( 1s, ce, li, cd, Window ) 

SetBlink( .F. ) 


Return 
“** 


* ButtShadow( <nLin>, «<nCol>, «nSize> ) 

aaa / 

Procedure ButtShadow( Linha, Coluna, Tamanho ) 
SetPos( Linha + 1, Coluna + 1 ) 
DispOut ( Replicate( Chr( 223 ), Tamanho ) ) 
SetPos ( Linha, Coluna + Tamanho 
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DispOut ( Chr( 220 ) ) 

SetBlink( .F. ) 
Return 
PA Skol 
* GrowWindow( <nLl>, «<nCl>, «<nL2>, «nC2>, 
<cTipMold> ) 
ata / . 
Procedure GrowWindow( LSup, CEsq, LInf, CDir, 
TipMold ) 

Local ContaH, ContavV,; 

MeioH, MeioV, Ll1, Cl, L2, C2, Delay 

TipMold := If( TipMold <> NIL, TipMold, 
BoxSimple + “ “) 

MeioH := Int( ( CDir - CEsq ) / 2) 

MeioV := Int( ( LInf - LSup ) / 2) 

Ll := LSup + MeioV 


Ci := Cesq + MeioH 
L2 := LInf - MeioV 
C2 := CDir - MeioH 
ContaV := 


For ContaH = 0 To MeioH Step 3 
For Delay = O To GrowDelay 
Next 
DispBox( Ll-ContaV, Cl-ContaH, L2+Contav, 
C2+ContaH, TipMold ) 
ContaV := If( ContaV < MeioV, ContaV + 1, 
MeioV ) 
Next 
SetBlink( .F. ) 
Return 
[ta 
* RollDiag() 
“am / 
Procedure RollDiag 
Local Window, LSup, CEsq, LInf, CDir, Conta 


LSup := 0 
CEsq := 0 
LInf := MaxRow() 


CDir := MaxCol() 
Set Color To 


Window := SaveScreen( LSup, CEsq, LInf, CDir ) 
Do While LSup < MaxRow() + 1 
LSup += 1 
CEsq += 3 
LInf += 1 
CDir += 3 
For Conta = 1 to RollDelay 
Next 
Cls 
RestScreen( LSup, CEsq, LInf, CDir, Window ) 
EndDo 
Cls 
SetBlink( .F. ) 
Return 
[28% 


* pd <nLl>, «<«nCl>, «<nL2>, «<nC2> ) 
tax 
Procedure CloseWindow( LSup, CEsq, LInf, CDir ) 
Local ContaH, ContaV,; 
MeioH, MeioV, L1l, Cl, L2, C2, Delay,; 
Boxe := Space (8) 
MeioH := Int( ( CDir - CEsq ) / 2) 
MeioV := Int( ( LInf - LSup ) / 2) 


Lil := LSup 
Cl := Cesq 
L2 := LInf 

C2 := CDir 
ContaV := 0 


For ContaH = O To MeioH Step 3 
For Delay = O To GrowDelay 
Next 
DispBox( Ll+ContaV, Cl+ContaH, L2-ContaV, C2- 
ContaH, Boxe ) 
DispBox( Ll+ContaV, Cl+ContaH+1, L2-Contav, 
C2-ContaH-1, Boxe ) 
DispBox( Ll+ContaV, Cl+ContaH+2, L2-Contav, 
C2-ContaH-2, Boxe ) 
ContaV = If( ContaV < MeioV, ContaV + 1, 
MeioV ) 
Next 
Cls 
SetBlink( .F. ) 
Return 
[Rã 


* id <cMensagem>, «<cTitle> ) 
ARS 
Function CenterAdverte( Mensagem, Titulo ) 
Local LSup, CEsq, LInf, CDir, cCoords, Largura, 
Altura, ; 
SaveCor, Rotulo, Window, SaveCur, Tecla, 
Centro, ; 
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VetMess := (), Conta, Li, Coluna, Foot 

Rotulo := “Atenção!” 

Mensagem := If( Mensagem == NIL, “Tecle “ + 
Chr( 17 ) + Chr( 217 ), Mensagem ) 

VetMess := Str2Vet ( Mensagem, “;” ) 

Altura := Len( VetMess ) + 3 

Largura := 

AEval( VetMess, ( |Str| Largura := Max( 
Largura, Len( Str ) ) )) 

Centro := Largura 


LSup := CEsq := LIn£f := CDir := 0 

Titulo := If( Titulo == NIL, “”, Titulo ) 

Largura := Max( Largura, Len( Rotulo ) ) + 3 

cCoords := CenterWind( Altura, Largura ) 

CalcCoords ( cCoords, GLSup, GCEsq, QLInNf, GCDir 
) 

Window := DrawCW( Altura, Largura, BoxSD, 
CorMess, Titulo,, 2 ) 

SaveCor := SetColor( CorMesgs ) 

SaveCur := SetCursor( O ) 

Li := LSup + 1 

For Conta := 1 To Len( VetMess ) 


SetPos( Li, CEsq+3 ) 
DispOut ( PadC( VetMess [Conta], Centro ) ) 
Li ++ 
Next 
Foot := SaveFoot () 
CenterFoot ( “Tecle *“ + Chr( 17 ) + Chr( 217 ) 


Coluna := Int( ( MaxCol() - ( Len( Rotulo ) + 2 
e | 

DrawButt ( LInf - 2, Coluna, Rotulo ) 

BeepLo () 

BeepMed () 

BeepHi () 

Tecla := Inkey( 10 ) 

LiteButt ( LInf - 2, Coluna, Rotulo ) 

SetColor ( SaveCor ) 

RestScreen( LSup, CEsq, LInf+1, CDir+2, Window 


RestFoot ( Foot ) 
BeepMed () 
SetCursor ( SaveCur ) 
SetBlink( .F. ) 
SetPos( 0, 0) 
Return ( Tecla ) 
[teta 
* CalcCoords( <cCoords>, <ênLi>, <QnCIi>, <QOnL2>, 
<QnCc2> ) 
was / 
Procedure CalcCoords( Coords, LSup, CEsq, LInf, 
CDir ) 


LSup := Asc( SubStr( Coords, 1, 1)) 
CEsq := Asc( SubStr( Coords, 2, 1 )) 
LInf := Asc( Substr( Coords, 3, 1 )) 
CDir := Asc( SubStr( Coords, 4, 1)) 
Return 
[tes 


* DrawCW( <nAltura>, «<nLargura>, <cTipBox>, 
<«cCor>, «cTit>, «<lShadow>, «nGrow> ) —> 
cSavedWindow 

wu / 


Function DrawCW( Altura, Largura, TipoBox, Cor, 


Titulo, Shadow, nGrow ) 


Local LSup, CEsq, LInf, CDir, Coords, Window 
Coords := CenterWind( Altura, Largura ) 

LSup := CEsq := LInf := CDir := 

CalcCoords( Coords, GLSup, GCEsq, QLInf, eCDir 


Shadow  := If( Shadow == NIL, .T., Shadow ) 

Titulo := If£( Titulo == NIL, “”, Titulo ) 

Cor := If£( Cor == NIL, CorMain, Cor ) 

TipoBox := I£f( TipoBox == NIL, BoxSimple, 
TipoBox ) 


nGrow := If( nGrow == NIL, 1, nGrow ) 
Window := SaveScreen( LSup, CEsq, LInf+1, 
CDir+2 ) 
DrawWindow( LSup, CEsq, LInf, CDir, TipoBox, 
Cor, Titulo, nGrow ) 
SetBlink( .F. ) 
Return ( Window ) 
[tax 
* ScreensSave() -> cScreenSaved 
wa / 
Function ScreensSave 
Return( SaveScreen( 00, 00, MaxRow(), MaxCol() ) 


/2x* 
* ScreenRest ( <cScreensSaved> ) 
wma / 


Procedure ScreenRest ( cScSaved ) 
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E Aplicativos - R$ 5,00 
E ALONE IN THE DARK 9H. — |Demos-R$ 4,00 
| | CRUSEFORACORPS SD - | BENEATHASTEEL SKV 6H |Jogos-R$ 2,00 | 
| PINBALILLUSION 2D GABRIEL KNIGHT NH disco, 
1 TANDE KIRK RABBIT 3D ALQADIN 5H discos inclusos no | 
: |WORDCUP94 2D LANDS OF LORE 8H [PC 
+ [OCIAMEDV 2D TE FIGHTER 5H 
SENSIBLE SOCCER 94 2D WING COMMANDER | 3H Aplicativos - R$ 6,00 à 
| | CRANFOORAL 2D WING COMMANDER )( 10H — I|shareware - R$ 200 | 
| |PERHELIO 5D WING COMM. SECRET MS. IH |Jogos - R$ 3,00 | 
E |MRNUS 5D WING COMVIANDER PRIVATEER 9H — Itpordisco 
| : DELUXE oral e INE E a ra A e discos inclusos no preço | 
— |[LOVEAGADEMO 2D WING CONM S SEGALOFERI 2h -MBX, APPLE & 2X SPECTRUM | 
+ |FRDIAGA - 2D - MSX 2.0-MSX1.1-APRLE- X || 
| BARTSIMPSONS x WORLD (AGA) 5D MASTER OF ORION 4H 
1 |TREARE OF DEATH (AGA) 3D SYNDICATE 5H | 
DOOM! 3H | 
DOOM 5H 
SPACE HULK aH | 
º PINBALL FANTASIES 2H E 
EMPIRE SOCCER 94 MH 3 DD-R$ 1,00 "Dispesas com correio 
CANNON FOODER 3H 3 HD-R$ 200 R$ 2,50 até 15 discos. 





FORMAS DE PAGAMENTO 


Envie cheque nominal à Nelson Salles de Siqueira ou faça depósito na C/C:003404-9 AG:0663 BANESPA 
São Paulo; no valor do seu pedido acrescentando R$ 2,50 para dispesas de coreio. 
OBS: No caso de depósito em C/C envie-nos uma cópia do recibo do depósito para confimação. 


PEDIDOS POR TELEFONE: Entre em contato conosco em nosso telefone (011) 982-1396, 
atendemos 24 horas por dia inclusive Domingos e Feriados. | 


- Barão de Itapetininga, 297 - 9º and - Cj 907 
Centro - São Paulo - SP -CEP:01 042-000 
1982-1396 - Próximo ao Metrô Republica. 
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Local nConta := 0, nDelay := 
For nConta := O To MaxRow () 
For nDelay := O To GrowDelay 
Next 
RestScreen( 00, 00, nConta, MaxCol (), 
csScSaved ) 
Next 
Return 
[ts 
* Growl( <nLl>, <nCl>, «<nL2>, «<«nC2>, <cTipBox>, 
<cCor> ) 
taxa / 
Procedure Growl( nL1l, nCl, nL2, nC2, cTipBox, 
cCor ) 
Local Conta, nTam := 2, BoxTmp := “| ss) 
setColor ( CorTit ) 
For Conta := Int( ( nc2 - nC1l ) / 2) To nCl 
Step -2 
SetPos( nLi, Conta ) 
DispoOut ( Space( nTam ) ) 
nTam += 4 
For Delay := O To GrowDelay 
// Just wasting time 
Next 
Next 
SetPos( nL1i, nC1l ) 
DispOut ( Chr( 221 ) + space( nc2 - nCl + 1 - 2 
) + Chr( 222 )) 
SetColor ( cCor ) 
For Conta := nLl+1 To nL2 
DispBox( nLl+1, nC1, Conta, nC2, BoxTmp, 
cCor ) 


For Delay := O To GrowDelay 
// Just wasting time 
Next 
Next 
Return 
PA dded 


* Grow2( <nLl>, <nCl>, <nL2>, <nC2>, «<cTipBox>, 
«cCor> ) 
was / 
Procedure Grow2( nLl, nCl, nL2, nC2, cTipBox, 
cCor ) 

Local Delay, nLin, nCol, cSpc := * * 

nLin := nLl 

nCol := nCl 

Do While .T. 

DispBox( nL1, nC1, nLin, nCol, cTipBox, cCor 


SetPos( nL1l, nC1l ) 
DispOut ( cSpc, CorTit ) 
nLin += If£( nLin < nL2, 1, 0) 
cspc += If( nCol < nC2, * *, “Mr ) 
nCol += If( nCol < nC2, 2, 0) 
For Delay := 0 To GrowDelay 
Next 
T£ ( nCol >= 'nC2 ) .And. ( nLin >= nL2 ) 
Exit ; 
EndIf 
EndDo 
Return 
(ta 
* Grow3( <nLl>, <nCl>, <nL2>, <nC2>, «<cTipBox>, 
«cCor> ) 
xa / 
Procedure Grow3( nLl, nC1l, nL2, nC2, cTipBox, 
cCor ) 
Local Conta, Delay, nLin, nCol, cSpc := hi 
SetPos( nLl, nC1l ) 
DispOut ( Space( nCc2 - nCi + 1 ), CorTit ) 
For Conta := 1 To ( nL2 - nLl) +14 
Scroll( nL1, nCl, nL2, nC2, Conta * -1 ) 
For Delay := 0 To GrowDelay 
Next 
Next 
For Conta := nL2 - 1 To nL1l Step -1 
DispBox( Conta, nCl, nL2, nC2, cTipBox, cCor 


SetPos( Conta, nC1 ). 
DispOut ( Space( nC2 - nCl + 1), CorTit ) 
For Delay := O To GrowDelay 
Next 
- Next 
Return 
[Rã 
“* MenuMess( <cMessage>, <aOptions>, «<cTitle> ) 
—> nOption 
aa / 
Function MenuMess ( cMessage, aOptions, cTitle ) 
Local aMessage, LSup, CEsq, LInf, CDir, nOpt 
:= 0, cCoords 
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Local nHig := 0, nWid := 0, nwidl := 0, nWid2 
Local SaveTela, SaveCor := SetColor ( CorMess ) 
Local nConta := O, nWMax := MaxCol() - 8 
cMessage := If( cMessage == NIL, “”, cMessage ) 
aoOptions := If( aOptions == NIL, ( “sim”, “Não” 

), aOptions ) | 
cTitle s= If( cTitle == NIL, ur, cTitle ) 
If Empty ( cMessage ) 

Return( O ) 
EndI£ 
aMessage := Str2Vet ( cMessage, “e. 
nHig := Max( Len( aMessage ), Len( aOptions ) ) 
nHig += If( Len( aMessage ) <= Len( aOptions ), 

2, 1) 

AEval( aMessage, ( | cstr | nWwidl := Max( 
nWidl, Len( cstr ) +2) )) 
AEval( aOptions, ( | cstr | nWid2 := Max( 















nwid2, Len( cstr ) + 2) ) 
nWidi := Min( nWidl, nWMax - nwid2 ) 
nWid := nWid2 + 2 + nWidl 
cCoords := CenterWind( nHig, nWid ) 
CalcCoords ( cCoords, GLSup, €CEsq, eLInf, ecDir 









SaveTela := DrawCW( nHig, nwid, BoxSimple, 
CorMess, cTitle ) 
For nConta := 1 To Len( aMessage ) 
setPos( LSup + nConta + 1, CEsSq + 2) 
DispOut ( PadC( aMessage[ nConta 1, Min( 
nwWidl, nWid - nWid2 ) ), CorMess ) 
Next 
nOpt := SubMenu( LSup+1, CEsq+nWidl+3, Len( 
aOptions ), aOptions,; 
BoxSpace, .F.,ss-F. ) 
RestScreen( LSup, CEsq, LInf+1, CDir+2, 
SaveTela ) 
SetColor ( SaveCor ) 
Return( nOpt ) 
// That's all folks 


 HEMSTRPRO 


// 
// HeM 1994 
// HeMSTR.PRG 






























// Funcoes de string 
// Dependencias: set.ch 
/ 


ftinclude “Set.ch” 


/) = ———————— 






[na 

* Str2Vet( <cString>, <cDelimitador> ) —> aLista 
* 

* Separa uma string em elementos de um vetor 
aaa / 

Function Str2Vet ( cList, cDelimiter ) 

Local nPos, aList := 














If cDelimiter 
cDelimiter : 
EndIf 


Do While( nPos := At( cDelimiter, cList ) ) 
|= 0 
AAdd( aList, SubStr( cList, 1, nPos - 1 ) 3) 
cList := SubStr( cList, nPos + 1 ) 
EndDo 














AAdd( aList, cList ) 
Return aList 


/ | me 





[nes 
* Vet2str( <aVetor>, <cDelimitador> ) —> cLista 
* 

* Junta os elementos de um vetor em uma string 
ea de / 

Function Vet2Str( Vetor, Separador |) 

Local String := “”, Conta 










“ou 
+ 


Separador := If( Separador == NIL, 





Separador |) 


For Conta := 1 To Len( Vetor ) 
String += Transform( Vetor [Conta], “OX” ) +; 
If( Conta < Len( Vetor ), 
Separador, “” ) 
Next 
Return String 


/( 


[Added 

* StrJus( <cString>, <cComprimento> ) —> 
cStringJustificada 

* 


* Justifica uma string no comprimento 
especificado 
batalha À 
Function StrJus( cSt, nWidth ) 
Local aWords := (), cStr := “”, nInd, nS 


nWidth := If( nWidth == NIL, Len( cSt ), nWidth 


cSt := Trim( cSt ) 


If Len( cSt ) >= nWidth 
Return( cSt ) 
EndIf 


aWords := Str2Vet( cSt ) 


Do Case 
Case Empty ( aWords ) 
Return Space( nWidth ) 


Case Len ( aWords ) ==1 
Return ( PadC( aWords[ 1 ] ), nWidth ) 


Case Len( aWords ) == 2 
nInd := Len( cSt ) - Len( aWords[ 1] ) - 
Len( aWords[ 2 1] ) 
Return( aWords[ 1 ] + Space( nInd ) + aWordsf[ 
21) 


Case Len( aWords ) >= 3 
nInd := Len( aWords ) 
cStr sm *” 
nS := 
AEval( aWords, ( | cs | ns += Len( cs) )) 
Do While .T. 
If nS « nWidth 
aWords [ nInd ] := * “ + aWords[ nInd ] 
nS += 1 . 
If nInd == 2 
nInd := Len( aWords ) 
Else 
nind -— 
EndIf 
Else 
Exit 
EndIf 
EndDo 
AEval( aWords, ( | cs | cstr += cs )) 
EndCase 
Return( cStr ) 


// That's all folks 


TESTE.PRG 


// 

// HeM 1994 
// TESTE.PRG 
/( 


// Exemplo para as funcoes de HeMSCR e 
HeMSTR 

// Dependencias: HeMDef.prg / HeMScr.prg / 
HeMStr.prg 


/[ 
Cls 





DefPublics () | / 
/ definicao de variaveis publicas 


npcoes  := 


aOpcoes := f “Arquivo”, “Opcoes”, “Fim” ) 
aMens a “Menu de arquivos”, “Menu de 
opcoes”, “Fim de execucao” 

n0pcaol := 1 

nOpci := 0 

nOpc2 := 0 

LetsGo = .F. 

nLinha = 4 

nColuna := 10 

n0pcoes2 := 3 

aOpcoes2 := ( “MenuMess”, “CenterGet”, 
“Beeps” ) 

cTipBox  := BoxFat 

lApaga mu .T. 

cTitle := “Menu de opcoes” 

lShadow :=.tT. 

MyStr cid 


MainScreen( “TESTE”, “HeM” ) 
Do While ! LetsGo 
nOpcl := MainMenu( nOpcoes, aOpcoes, 
aMens, nOpcaol ) 
Do Case 
Case nOpcl == 1 
CenterMess ( “Eu sou a mensagem: ;” 
+ 1: 
“Voce escolheu a opcao 
ARQUIVO;” + ; 
“Tecle <ENTER> para 
continuar”, ; 
“Eu sou o titulo” ) 
Case nOpcl == 
n0pc2 := SubMenu( nLinha, nColuna, 
n0pcoes2, aOpcoes2, cTipBox,; 
l lApaga, cTitle,, 
lShadow ) 
Do Case 
Case nOpc2 == 
MenuMess ( “Esta e a mensagem”, 
aOpcoes2, “Este e o titulo” ) 
Case nOpc2 == 
MyStr := CenterGet ( “digite 
algo:”, “C”, 20, “OX”,,, “Titulo” ) 
CenterMess ( “Voce digitou:;” + 
MyStr ) 
Case nOpc2 == 
BeepLo () 
BeepMed () 
BeepHi () 
BeepHighest () 
CenterMess ( “Voce acabou de ouvir 
os beeps predefinidos” ) 
EndCase 
Case ( nOpcl == 3 ) .Or. ( nOpc == 0) 
If Confirma ( “Deseja mesmo 
terminar?”, .F. ) 
LetsGo := .T. 
EndIf 
EndCase 
EndDo 


Cls 
Return 


// That's all folks 
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TETRIS 


Monte um incrível jogo de raciocínio 


André Caldas Oliveira 





O objetivo do programa é construir um tetris no qual as peças 
sejam lidas de um arquivo de configuração, no qual além das peças, 
poderão constar dados sobre o jogo, como, por exemplo. nível de 
dificuldade. Isto permitirá ao jogador construir suas peças e aforma 
de jogo default. 


O programa é composto de três fontes : 


Tetris.pas ==> Fonte principal do jogo. 
Pac.pas ==> Biblioteca para acesso à gráficos. 
Conf.txt ==> Contém a descrição das peças e a configuração do 


jogo. 
DESCRIÇÃO DO ARQUIVO PAC.PAS 


Esta Unit tem o objetivo de facilitar a geração dos gráficos, 
trabalhando com coordenadas lógicas que variam de O a 100. 
Possui funções simples para inicialização, fechamento e construção 
de gráficos simples. 

Funções MapX e MapY : mapeiam coordenadas lógicas em 
coordenadas reais. 


Classe Graph : 

InicioGraph : Inicializa modo Gráfico. 

Finalâraph : Fecha modo Gráfico. 

Linha(x,y,x1,y1): Desenha uma linha, coordenadas lógicas (O- 
100). 

Retanguio(x,y,x1,y1) : 
lógicas. 

Barra(x,y,x1,y1) : Desenha um retângulo preenchido, coord. 
lógicas. 

Texto(x,y,st) : Escreve a string st em x,y. 
Fim-Classe Graph. 


Desenha um retângulo, coordenadas 


DESCRIÇÃO DO ARQUIVO TETRIS.PAS 


Este arquivo é o fonte, propriamente dito, do jogo, iremos descrever 
apenas as principais classes, com seus principais métodos e 
atributos (para maiores detalhes consulte o fonte do programa, que 
estã documentado) : 

Classe ObjPoli (bitmap de uma peça) : 
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Atributos principais : 
Quad : Lista de quadradinhos (x,y) que compõem a peça. 
Matriz : Bitmap da peça, contém valores booleanos. 
Fim-Classe ObjPoli. 
Classe ObjVisao (contém as quatro visões de uma peça) : 
Atributos: 
versoes : Lista com as quatro versões de uma peça. 


Métodos: 

GiraPolígono (cx,cy): Gira a partir do centro(cx,cy) a primeira peça 
para gerar as outras três peças. 
Fim-Classe ObjVisao. 
Classe Texto (para permitir a confecção do help e mensagens 
durante o jogo) : 
Atributos prificipais : | 

Strlin : contem o texto a ser exibido. 

x,y,X1,y1 : janela onde o texto será exibido. 


Métodos principais: 

IniitTexto: Inicializa as coordenadas da janela para escrever O 
texto. 

InsTexto: Insere linhas com strings no Objeto. 

ExibeTexto: Exibe o conteúdo do objeto na janela e aguarda até 
uma tecla ser pressionada. 


Fim-Classe Texto. 


Classe Visor (Contém os elementos que formam o jogo) : 
Atributos principais: 

Textohelp,Textofim : objetos do tipo texto que conterão as 
mensagens de help e final de jogo, respectivamente. 

Tabuleiro : Bitmap do Tabuleiro, contém valores booleanos. 

v1 : Lista de objetos do tipo ObjVisão, são as peças que o jogo 
irá possuir. 

gf : Objeto do tipo pacote gráfico, utilizado para auxiliar na 
construção de gráficos. 


Métodos Principais : 
InitCenario : Rotina importante, que realiza as seguintes tarefas 
1) Inicializa os objetos TextoHelp e textoFim. 
2) Inicializa os valores default que irão determinar o grau de 





dificuldade. 

3) Inicializa o Tabuleiro, o bitmap irá conter somente false em 
suas células. 

4) Insere peças através dos dados contidos no arquivo conf.txt. 


ExibePontos : Utilizado para desenhar os valores do placar, 
número de linhas completadas e nível do jogo. 

Draw : Desenha as peças que irão se mover pelo tabuleiro. 

MovePecas : Principal rotina do programa, se divide em partes : 


1) Sorteia a peça e o ângulo que esta terá inicialmente. 


2) Movimenta a peça até que esta encontre algum obstáculo, se 
este obstáculo foi na primeira linha encerra o jogo. 


3) Verifica se nenhuma linha foi completada, se foi verifica O 
aumento de pontos e a passagem de nível. 


* FimClasse Visor. 
DESCRIÇÃO DO ARQUIVO CONF.TXT 


Variáveis que poderão ser redefinidas : 
NIVEL (default é 1): 1..10; 


DELTA (default é 500) : 100..1000 => variação entre cada nível 
de dificuldade, quanto maior mais difícil se tornará o jogo após a 
passagem de um nível para o outro. 


PAUSA (defaulté 3): 1..6 => cada vez que uma peça está em uma 
determinadalinha datela, o jogadorterá esta pausa para poder girar 
a peça, é como se a peça ficasse congelada-e o jogador pudesse 
girar ou mudar a coluna onde a peça se encontra, sem alterar alinha 
onde a peça está. Quanto menor a pausa, maior será a dificuldade 
para se jogar. 


COMO DEFINIR AS PEÇAS: 


O caracter que indica o início da definição de um peça é o *, 
porém existem duas formas de se definir as peças. No primeiro, 
somente será fornecido o bitmap de uma peça e o centro através 
do qual está peça será rotacionada para gerar as outras três peças. 
No segundo modo. serão fomecidos os bitmaps das quatro peças. 
A matriz para geração dos bitmaps é composta de seis colunas, ou 
seja, OS primeiros seis caracteres serão a definição da primeira 
peça, os seis seguintes da segunda e assim por diante. Os 
caracteres considerados como pontos para o bitmap serão aqueles 
que forem diferentes de números e espaços em branco. Isto para 
ajudar na separação das peças entre si, pois bastará utilizar na 
primeira linha do objeto números variando de 1 a 6, ao invés de 
espaços, servindo estes como cabeçalho para a definição dos 
demais pontos. (vide definição da última peça no arquivo conf.txt). 


A utilização do segundo modo é útil quando o arredondamento 
gerado pelo rotacionamento das peças não se torna interessante, 
um exemplo é o travessão formado por quatro pontos, como esta 
figura tem um número de pontos par, qualquer centro que utilizarmos 
não nos trará o efeito de possuir somente duas posições para esta 
peça (uma vertical e outra horizontal). 


wmv ANDRÉ CALDAS OLIVEIRA é formado em Ciência da 
Computação, pela Universidade Federal do Rio Grande do 
Sul e atua na área de suporte a banco de dados. 





PAC.PAS 


Unit Pac; (* UNIT UTILIZADA PARA TRATAR 
GRAFICOS *) 


Interface 


uses Graph; 


Type 
CoordWindow = Real; 
Obj Graph = Object 
Function InicioGraph 
Boolean; 
Procedure FinalGraph; 
Procedure 
Linha (x1,y1,x2,y2:Real); 
Procedure 
Retangulo (x1,y1,x2,y2:Real); 
Procedure 
Barra (x1,y1,x2,y2:Real;borda:Boolean); 
Procedure 
Texto (x1,y1:Real;st:String); 
End; 
Function MapX (x1:CoordWindow) : Integer; 
Function MapY (y1l:CoordWindow) : Integer; 
Implementation 


(usmazassannnznsaanasaas 
MapX : retorna x em coordenadas reais 
EREESEREERRRRSRESREZRZEZENE 
Function MapX (x1:coordWindow) : Integer; 
begin 
MapX := (Trunc (x1/100*GetMaxX)) ; 
end; ' 


(uazzrnsnRRcEESSSRScaSas 
MapY : retorna y em coordenadas reais 
SEER EESESREZEESSRERZEE 
Function MapY (yl:coordWindow) : Integer; 
begin 
MapY := (Trunc(y1/100*GetMaxrY)); 
end; 


* ROTINAS DO OBJETO GRAPH / PACOTE GRAFICO *) 
RENCRRRCRARARRR RAR) 


[ nornas Do carro crai 
(nasnnzansennnaannannnaasaa= 
InicioGraph : ret. (Bool)/tenta ativar o 

modo graf. 

ERESESSERnnnEnss nana san) 
Function Obj Graph.InicioGraph : Boolean; 
var gd,gm : Integer; 
begin 

gd: =detect; 

initGraph (GD, GM,''); 

InicioGraph := (GraphResult = grOk); 
end; 


(nanzninnREanaRacanaaaa= 
FinalGraph : Fecha modo grafico 
EEE RREREREIZRRERREEZEZEZES 
Procedure Ob) Graph.FinalGraph; 
begin 
CloseGraph; 
end; 


(uasnrannsnancasanaosuas 
Linha : Traca uma linha de xl,yl a x2,y2 
EEEZENNEREEZREEZEZRREEEER 
procedure Obj Graph.Linha(x1,y1,x2,y2:Real); 
begin | 
Line (MapX(x1),MapY(y1),MapX(x2) ,MapY(y2)); 
end; 


(==uuznzzsannnssncasanaas 


Retangulo : Traca um retang.de xl,yl a 
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x2,Yy2 
cumsacaszasanscasncosses) 
Procedure 
obj Graph.Retangulo(x1,y1,x2,y2:Real); 
begin 
rectangle (MapX (x1) ,MapY (y1) ,MapX(x2) ,MapY(y2)); 
end; 


(==z==DxsEsssnsas=aseses 


Barra : Ret.preenchido de x1,yl a x2,Yy2 
Procedure 
Obj Graph.Barra (x1,y1,x2,y2:Real;borda:Boolean) ; 
begin | 

Bar (MapX (x1),MapY (y1),MapX(x2) ,MapY (y2)); 

1f borda then Retangulo (x1l,y1,x2,y2); 
end; 


(=====s==2nsssssessss2== 
Texto : Exibe texto st em xl,yl 
ENDISEZRESERIFEIFEZEILESS 
Procedure 
ob) Graph. Texto (x1,y1l:CoordWindow;st:String) ; 
begin 
OutTextXY (MapX (x1) ,MapY(y1),st); 
end; 


end. 
























TETRIS.PAS (primeira parte 


Program Tetris; (* FONTE DO JOGO *) 





uses Graph, Crt, Pac; . 






Const 


) nex = 14; ( Escala Tela/Pecas X 
) ney = 14; ( Escala Tela/Pecas Y 

Limx = 14; ( Numero de Colunas/ 
Tabuleiro  ) 

Limy = 27; ( Numero de Linhas/ 
Tabuleiro ) 

Dim = 07; ( Tamanho max.dos 
poligonos ) 

MAX OBJ = 10; ( Maximo de Formas 
dif. 

MAX QUAD = 06; ( Max.de quadradinhos 


por peca ) 
Type 
Mat = Array (-dim..dim, -dim..dim] of 


Boolean; 
( BitMap dos objetos ) 







Record 
col, lin : Shortint; 
end; 


Quadro 






TabQuad = Array [1l..MAX QUAD] of Quadro; 
( Quadros que formam pecas ) 













ObjPoli = Object 


quad - 
TabQuad; ( Quadros ) 
Matriz : 
Mat; ( BitMap ) 
nver,pfin,yini,xini : 


Integer; ( Atributos ) 
Procedure InitPol; 
Procedure GeraPoligono; 
Procedure MapeiaPol; 
end; 








Objvisao = Object ( Armazena as quatro 
visoes de cada poligono + 
versoes : Array[1..4] of 







ObjPoli; 
Procedure 
GiraPoligono (cx, cy: Real); 


46 MICRO SISTEMAS 


end; 
Str2 = String[2]; 
Str30 = String[30]; 
Texto = Object ( Exibicao de mensagens 
na tela ) 
gtrlin : Array [1..8] of 
Str30; 
nlin : Byte; 
x,y xlL,yl : word; 
Procedure 


InitTexto (px, py,pxl, pyl:word) ; 
Procedure InsTexto (line : 
Str30); 
Procedure ExibeTexto; 
end; 


objvisor = Object ( Contexto do jogo ; 


x,y.xl,yl : Integer; 
(* janela do jogo *) 


textohelp, 
textofim : Texto; 
(* Mensagens do jogo *) 


N Vezes : Byte; 
salto, pausa : Real; 
(* Grau de dificuldade *) 


Tabuleiro : Array [f-dim..Limx, - 
dim..Limy] of Boolean; 
(* bitmap do tabuleiro *) 


num obj : Byte; 

vl : Array [1..MAX OBJ] 
of ObjVisao; 

(* poligonos do jogo *) 


nquad : Byte; 
(* Numero de quadradinhos p/ 
peca *) 


cor, ( Cor do 
Pol.Corrente ) 

vcorr, ( Angulo do 
Pol.Corrente ) 

vl cor ( Pol.Corrente 


g : Obj Graph; ( 
Rotinas do pacote grafico ) 


Placar, ( 
Contexto ») | 
Nivel, 

Linhas, Lnivel : Integer; 


dx, dy : CoordWindow; 


Procedure 
InitVisor (nx,ny,nx1l,nyl: Integer); 
Procedure ExibePontos; 
Procedure Draw (deltax, deltay : 
CoordWindow; 
novocorr:Shortint;var 
tecla:Str2; 
MudouAng: Boolean; cx, cy:Shortint); 
Function MovePecas:Boolean; 
Procedure InitCenario; 
Procedure ExibePlacar; 


end; 
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TIPOS DE ARQUIVO DO VISUAL BASIC 


Arquivos de Acesso Sequencial são como músicas gravadas 
em fita cassete. Para escutar, por exemplo, a 5? música de 
uma fita, temos que percorrer a fita, passando todas as 
músicas, uma a uma, até encontrarmos a que desejamos. 
Nosso arquivo - conteúdo de txtBloco - é um arquivo de acesso 
sequencial. Esses arquivos são tratados (gravados ou lidos) 
string a string. 

Arquivos de Acesso Aleatório ou Randômico são como 
músicas gravadas em disco. Sabendo a música que queremos, 
basta deslocar o braço do toca discos diretamente sobre ela. 
No arquivo de acesso aleatório, os dados são organizados 
em campos [= Fields], que agrupados formam um registro [= 
Record], que agrupados formam um banco de dados [= Data 
Base). Veremos arquivo aleatório no exercício Agenda. Tais 
arquivos são tratados registro a registro. 

Arquivos de Acesso Binário são arquivos do tipo EXE, BMP, 
etc e são tratados byte a byte. 


Medos de Mbnr [= Open] Arquvos, conforme « tipo de arquivo 
siemficado 














Abre o drquivo para Copo. 











Sequencial 









- da Rê ul 


Sequercial 














Entrada/Baída 







Abre o arquivo: 


- para leitura e escrita 







Se otrutido 


- só para lestura 
- sá para escnta (eravação) 










Fead Vinte 


- para leitura e escrita 






DE ogutido 
processos terão acesso negado 


Qutros 
- nemutido a qualquer processo 

- outros processos não poderão ler o arquivo 
- outras processos não poderão gravar no arquivo 
- outros processos não poderão ler cu gravar na arquivo 


















ahared 
Lock Read 
Lock Wyrte 
Lock Read Wrte 


Figura 1 
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«do cisco para RALI (Abrindo, Carregando) 
iara disco (Salvando, Oravando ) 
“da RAM para o disco, posicionando o pontero do 


Nequencial append Acréscimo E 
ode É PE lá qurzo pio ge final 
aleatório Entrada/Saída | - do disco para RAM OU da RAM para o discu 


- do disco para RAM OU da RAM para o disco 


Fead = Ler = Abrr = Carregar 


Winte — Escrever = Salvar = Gravar 





Aresso ao Arquivo: 


-o processo atual pode abrir o arquivo qualquer número de vezes. 


Visual Basic - Parte 10 


ABERTURA DE ARQUIVO 


Antes de efetivamente lerou gravar em arquivo é necessário 
saber que tipo de arquivo estamos trabalhando. Sabendo o 
tipo de arquivo, podemos abri-lo com o comando Open que 
possui a sintaxe: Open [caminhoNarquivo [For modo] [Ac- 
cess acesso] [lock] As [&] número [Len = comprimento] (Em 
nosso exemplo: Open CaminhoArquivo$ For Input As *1) 
Caminho NArquivo significa o nome de arquivo com respectivo 
caminho (opcional). 

(Ver figura 1) 

Comprimento é o tamanho de um registro para arquivos 
aleatórios, ou tamanho do buffer que você deseja para 
arquivos sequenciais. 


COMANDOS DE LEITURA E GRAVAÇÃO DE 
ARQUIVOS SEQUENCIAIS 


Outros 
LOF() 


Leitura Escrita 
Input$ - Input& - Line Input& Print 4 - Write & 












COMANDOS DE LEITURA DE 
ARQUIVOS SEQUENCIAIS 


Input 4 Número, Lista de Expressões - 
Lê arquivo composto de strings delimitadas 
por vírgula, espaços ou finais de linha 
produzidos por <Enter>. 

DICA: CR = Carriage Retum [= Avanço 
de Linha e Retorno do Carro] = <Enter>. 

Line Input & Número, Variável String - 
idem acima. Encontrando CR finaliza a 
leitura. 










Input$ (Número de Bytes a Ler, [%] 
Número) - idem acima. Encontrando CR 
não finaliza a leitura. Este comando é o 
ideal para ler o texto de nosso Editor. 





COMANDOS DE GRAVAÇÃO DE ARQUIVOS 
SEQUENCIAIS 


Write 4 Número, Lista de Expressões - Grava uma lista de 
expressões, inserindo vírgulas entre cada expressão, 
delimitando cada expressão com aspas e insere uma nova 
linha em branco ao final do arquivo. Exemplo: Arquivo 
delimitado para emissão de etiquetas. 

João da Silva Rua Sobe Desce 100 Apt. 30,Ipanema,Rio 

Pentelho de Sousa,Av. Sernambetiba 500,Barra da 
Tijuca,Rio 


Print ? Número, Lista de Expressões - Envia a lista de 
expressões como um bloco único, sem acrescentar aspas, 
vírgulas ou CR. O texto de nosso Editor é um exemplo. 


JANELA PARA ABRIR OU SALVAR UM ARQUIVO 


Usamos a mesma janela para ler ou escrever um arquivo, 
mudando apenas o código Basic. 


Abrir Arquivo... 


Diretório: 


autoload mak 
bright. dib 
constant. txt 
ctrlref. hip 
demo.exe 
introZvb exe 
packing Ist 
pastel. dib 


figura 2 


ADICIONANDO UM NOVO FORMULÁRIO 
Clique botão Adiciona Novo Formulário 
Encontre e mude as propriedades de Formi: 
Name: frmLeGrava 
Width: 5.670 
Height: 3.630 
MaxButton: False 





* Ure repostcione. redimensone e altere as propriedades dos objeto 
Label Nome do Arquivo o NiÃ 
Label “tl Diretório Né, 
Label o Tapa IA 
Label o : el amnho Carunho | RRRo 
Botão de Comando boto DE o Tim 
Botão de Comando botlancela Cancelar CS DR 
CaxadeTedo  txNomeleârguvo N/A NUA 





e One, repostcione e redimenstone os objetos Cama de 
Pavel Nt& 

Dal NiA 

Fideli 





E CSN SR ORA Ubserve que 
Catra de Lista de Unidade ERG RENNE, Ooo 
axa de Lista de Diretório | 

axa de Lista de Arquivo 


N/A = Não Apleável 
Figura 3 


xo 





; O RA 
“Nisa 
| Hã 
Ni& | 


Ê N ERA 


estas 


eabem seus respectivos conteúdos 





em tempo de projeto 


MinButton: False 

BorderStyle: 1 - Fixed Single 

Grave o Projeto e digite: LE-GRAVA (Para nome desse novo 
formulário.) N OK 


CRIANDO A INTERFACE COM O USUÁRIO - 
FRMLEGRAVA 


(Ver figura 3) 


PROPRIEDADE PATTERN [= PADRÃO] DA CAIXA DE 
LISTA DE ARQUIVO 


O *.* estabelece que todos os arquivos [ * | com qualquer 
extensão [ .* ] serão exibidos. Se Pattern = *.EXE só os 
arquivos com a extensão EXE seriam exibidos. 


Crie, reposicione, redimensione e mude as propriedades 
do objeto: 

O estilo 2 é na realidade uma caixa de lista desdobrável 
e não uma ComboBox. 


Objeto 
Combo Box 


Name Style 
cmbTipo2 - Dropdown List 


PROPRIEDADES DAS CAIXAS DELISTA OU COMBOBOX 
(Ver figura 4) 


DECLARANDO VARIÁVEL ECRIANDO PROCEDIMENTO 
A NIVEL GLOBAL 


Ative o arquivo EDITOR.BAS na Janela de Projeto N Acione 
o botão View Code * Digite: Global NomeDeArquivo$ <Enter> 

Posicione o Ponto de Inserção na primeira linha desta 
Janela de Código, rente à margem esquerda e digite: Sub 
Alerta (| As Integer) <Enter> 

Quando tentamos abrir um arquivo, para ler ou gravar 
dados, poderá ocorrer algum erro. 

Não convém informar ao usuário os códigos de erro 
acompanhados das descrições, isto é, o que adiantaria ao 
usuário receber a mensagem Erro 68 - Device unavailable. 
Para evitar isto, você pode criar uma rotina de tratamento de 
erro como segue. 

Complete o procedimento que será 
usado pelo frmLeGrava: 
Sub Alerta (i As Integer) Procedimento 
de tratamento de erro de abertura 
Select Case i “de arquivo. 
Né Case / 
1 Aviso$ = “Arquivo “ + 
NomeDeaArquivo$ + “ muito grande.” 
Case 55 
Aviso$ = “Arquivo já está 


Nata 


lista Já 
mesmo 


camas de aberto.” 
Case 62 
Aviso$ = “Entrada além do final 


de arquivo.” 
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Case 64 
Aviso$ = 
Figura 4 


“Nome de arquivo 


errado.” 
Case 57,68, 71 
Aviso$ = “Pentelho, cheque o disco e tente 
novamente.” 


Case 53, 75 
Aviso$ = “Caminho ou Arquivo não encontrado.” 
Case 76 
Aviso$ = “Caminho não encontrado.” 
End Select 


MsgBox “Erro” + Str$(Erm) +“-" + Aviso$, 48, “Agenda (“ 
+ NomeDeArquivo$ + “)” 

frmLeGrava.Drivel .Refresh 
força o VB a atualizar 

frmLeGrava.Dir1.Refresh 
diretório e arquivo. 

frmLeGrava.Filei.Refresh 
End Sub 


Refresh é um método que 


ESCREVENDO O CÓDIGO BASICPARA O OBJETO FORM 
DO FRMLEGRAVA 


A Propriedade Path estabelece ou retorna (neste caso) o 

caminho atual. Exemplos: C:N ou 
C:NVBNSAMPLES (Note que o final do caminho [= Path] 
pode ser [» ] ou uma letra [ S )) 

O método Additem adiciona strings numa ComboBox ou 
numa Caixa de Lista. Se a propriedade Sorted for True, o VB 
adicionará um novo item na sua própria ordem. 

Complete o procedimento e rode o projeto para ver que 
gracinha ficou a cmbTipo: 


Sub Form Load () 

Left = Screen.Width / 2 - Width / 2 

Top = Screen.Height / 2 - Height / 2 

IblCaminho.Caption = Diri.Path IblCaminho exibirá o 
caminho corrente. 

Preparamos os itens da cmbTipo. 


cmbrTipo.Additem “Arquivos (*.*)” 'item O 
cmbTipo.Addltem “Arquivos (*.bat)” “tem 1 
cmbTipo.Additem “Arquivos (*.txt)” | item 2 


cmbTipo.Listindex = 2 Exibe Arquivos (*.txt) na cmbTipo. 
Filei.Pattern = “*.txt” Exibe arquivos TXT na caixa de 
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'a caixa de lista de: Drive;. 





* lista de arquivo. 

"* End Sub 
ESCREVENDO O CÓDIGO BASIC 
PARA O OBJETO CMBTIPO DO 
“ FRMLEGRAVA 


Ao selecionar umitemna cmbTipo 
este procedimento define a extensão 
[= Pattem] dos arquivos a serem 
exibidos na caixa de lista de arquivos 
e na caixa de nome de arquivo. 

A função Mid$ neste exemplo, 
seleciona os 5 penúltimos caracteres do texto do item 
ativado na cmbTipo. 

Complete o procedimento e Gis (6) projeto para ver como isto 
funciona: 
Sub embrTipo. Click () 
Hf (cmbTipo.Listindex = 0) Then 
File1i.Pattem = “*.*" 
Else 
File1.Patten = Mid$(cmbTipo.Text, Len(cmbTipo. Text) - 
5,5) 
End If 
txtNomeDeArquivo. Text = Filei.Pattern 
End Sub 





Se q usgário. 


ESCREVENDO O CÓDIGO BASIC PARA O OBJETO DIR! 
DO FRMLEGRAVA 


Selecionando um item na caixa de diretório [= Dir1] a 
caixa de arquivos [= File1] seguirá o mesmo caminho [= Path). 
O comando ChDir muda para o novo diretório [= Dir1.Path] 
selecionado pelo Pentelho. 
Complete o procedimento e rode o projeto para ver como isto 
funciona: 
Sub Diri, Change () 
File1.Path = Diri.Path 
IbiCaminho.Caption = Dir1.Path IblCaminho exibirá o 
caminho selecionado. 
ChDir Filei.Path 
End Sub 


ESCREVENDO O CÓDIGO BASIC PARA O OBJETO 
DRIVE! DO FRMLEGRAVA 


Se o Pentelho acionar, por exemplo, o drive A quando este 
não possuir um disco On Error GoTo desviará a execução do 
programa para o rótulo ErroDeDrive: 

Selecionando um item na caixa de drive [= Drivel] a caixa 
de diretórios [= Dir1] seguirá o mesmo caminho [= Path]. 

O comando ChDrive assume o novo diretório [= Dir1.Path] 
selecionado pelo Pentelho. 


“Complete o procedimento e rode o projeto para ver como isto 


funciona: 
Sub Drivel Change () 
On Error GoTo ErroDeDrive 
Dir1.Path = Drive1.Drive 
ibiCaminho.Caption = Diri.Path IblCaminho exibirá o 


Serediagar Er 
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caminho selecionado. 
ChDrive Dir1..Path 
Exit Sub 'Sai desse procedimento. 
ErroDeDrive: 
Call Alerta(Err) “Chama o procedimento, passando 1 
argumento. Poderia ser Alerta Err. 


Resume Retorna à linha que provocou o erro e a 
executa infinitamente. 
End Sub 


Escrevendo o Código Basic parao objeto File1 do frmLeGrava 
- Evento Click 

Selecionando um item na caixa de lista de arquivo [= Filet] 
o nome do arquivo [= FileName) será exibido na 
txtNomeDeArquivo. Complete o procedimento. 
Sub Fileí Click () 

txtNomeDeArquivo. Text = File1.FileName 

End Sub 


ESCREVENDO O CÓDIGO BASIC PARA FILEI DO 
FRMLEGRAVA - EVENTO DBLCLICK 


Sabendo que um duplo clique no nome de um arquivo 
equivale a dar um clique no mesmo é em seguida ativar OK, 
complete o procedimento: 

Sub Filei DbiClick () 
txtNomeDeArquivo = File1.FileName 
botOK Click 

End Sub 


ESCREVENDO O CÓDIGO BASIC PARA O OBJETO 
BOTCANCELAR DO FRMLEGRAVA 


Sub botCancelar Click () 
Hide 
End Sub 


ESCREVENDO O CÓDIGO BASIC PARA O OBJETO 
BOTOK DO FRMLEGRAVA 


Como já foi dito, quando tentamos abrir um arquivo, para 
ler ou gravar dados, poderá ocorrer algum erro. Se ocorrer 
algum erro, desviamos a execução do programa para rótulo. 

DICA: Durante o período em que você estiver testando o 
projeto, coloque um apóstrofe antes de On Error GoTo, para 
que a rotina não seja desviada para o rótulo e você possa ver 
a mensagem de erro original produzida pelo VB. 

A função InStr$ neste exemplo, verifica se existe um 
espaço em branco [ Space$(1) ] dentro de NomeDeArquivoS. 

A função Right$ aqui retorna o último [ comprimento 1 ] 
caractere de Dir1.Path, que pode ser [N] ou uma letra. 

Em nosso exemplo, queremos ler 100% um arquivo 
sequencial de texto corrido. O melhor comando é o Input$. 
Para sabermos 100% de seu tamanho em bytes usamos a 
função LOF(número do arquivo) que significa Length Of File [= 
Comprimento De Arquivo]. 

DICA: A função Input$( ) lê arquivos até 32.767 bytes em 
acesso sequencial ou binário. Para arquivos maiores verifique 


seu tamanho com LOF( ) e faça leituras sucessivas até ler 
todo o arquivo. | 
Finalmente fechamos o arquivo com Close [4%] número do 

arquivo. 
Sub botOK Click () 

On Error GoTo Mensagem 

NomeDeArquivo$ = UCase(txtNomeDeArquivo. Text) 
UCase transforma string em 

Verifica se possui caractere em branco. letra maiúscula. 

H (InStr(NomeDeArquivo$, Space$(1)) < > 0) Then 


Beep 
MsgBox “Nome de arquivo não pode ter espaço.”, 48, 
“Editor - (* + NomeDeArquivo$ + “)” 
txtNomeDeArquivo. Text = Space$(0) 
Exit Sub “Sai desse procedimento. 
End If 
If (Right$(Dir1.Path, 1) = “.”) Then 
CaminhoArquivo$ = Dir1.Path + NomeDeArquivo$ 
Else 
CaminhoArquivoS$ = Dir1.Path + “N” + NomeDeaArquivo$ 
End If 
If (frmLeGrava.Caption = “Abrir Arquivo”) Then 
Abre arquivo de acesso sequencial para leitura [= 
Input]. 
Open CaminhoArquivo$ For Input As &1 
frmEditor.txtBloco. Text = Input$(LOF(1), &1) 


Else “Gravação 
Abre arquivo de acesso sequencial para escrita [= 
Output]. 

Open CaminhoArquivo$ For Output As 41 

Print 41, frmEditor.txtBloco. Text 
End If 
Close %1 Fecha o arquivo corrente. 
frmEditor.Caption = “Editor - (“* + CaminhoArquivo$ + “)” 
Filei.Refresh “Atualiza a caixa de lista de arquivo. 
Hide Esconde o formulário da tela. 


Exit Sub “Sem o Exit Sub o VB continua execução. 
Mensagem: 
Alerta Err Poderia ser Call Alerta(Err). Você decide... 
Exit Sub “Sem o Exit Sub o VB pedirá Resume em tempo 
de execução. 
End Sub 
COMANDOS DE LEITURA E GRAVAÇÃO DE 
ARQUIVOS ALEATÓRIOS 
Leitura Escrita Outros 
Get É Put É Type... End Type - LOF() 


COMANDOS DE LEITURA DE ARQUIVOS ALEATÓRIOS 


Get [4] Número, [Número do Registro], Variável - Em um 
arquivo banco de dados, lê registros para uma variável. Se o 
número do registro for omitido o VB lerá o próximo registro da 
posição ativa no arquivo. Temos que manter controle sobre 
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quantos registros existem no arquivo banco de dados, 
dividindo o comprimento em bytes do arquivo pelo comprimento 
em bytes de qualquer registro, já que cada registro possui o 
mesmo tâmanho. 

TReg = LOF(número do arquivo) / Len (nome de uma 
variável que representa um registro) 


COMANDOS DE GRAVAÇÃO DE ARQUIVOS 
ALEATÓRIOS 


Put [4] Número, [Número do Registro), Variável - Grava em 
um arquivo banco de dados os dados contidos numa variável. 
Se o número do registro for omitido o VB gravará o próximo 
registro após o último registro do arquivo. Temos que definir 
o tamanho dos campos, bem como, manter controle sobre o 
registro queremos gravar. 


O QUE É UM ARQUIVO BANCO DE DADOS [= DATA 
BASE FILE]? 


É um conjunto de informações sobre um assunto específico, 
agrupadas de forma lógica, que permite fácil acesso. Ex: 
Cadastro de Contribuintes do Imposto de Renda; Contas a 
Pagar; Contas a Receber; Ativo Imobilizado; Estoque; etc. O 
exemplo seguinte ilustra o Banco de Dados dos Clientes da 
Firma ABC. 

(Ver figura 5) 

Cada linha equivale a uma ficha de arquivo, ou seja, um 
registro [= Record] com os dados de cada cliente. Aqui temos 
1.000.000 registros (fichas). 

Cada coluna representa um campo [= Field] do banco de 
dados. O cabeçalho tem o nome dos campos dos registros. 
Aqui temos 4 campos por registro, ou 4.000.000 de campos 
em nosso banco de dados (1.000.000 registros x 4 campos). 


Chave Primária é o campo que define um registro de forma 
inequívoca. Em nosso banco de dados o campo Nome é uma 
chave primária porque através dela, podemos acessar O 
registro que queremos. Se buscarmos os dados de Pentelho 
de Souza (com z), de forma inequívoca o VB encontrará o 3º 
registro. Já os demais campos são chamados de Chaves 
Secundárias, pois seus respectivos conteúdos (dados) podem 
aparecer em diversos registros, o que não define um registro 
de forma inequívoca. 

Repare que nosso banco de dados, se totalmente 
preenchido no disco e carregado para RAM, ocupará, no disco 
e na RAM, 120.000.000 bytes (120 Megabytes = 120 MB), 
ou seja, cada registro tem 120 bytes (35+35+25+25) x 
1.000.000 registros. 


DICA: Vetores ou matrizes de variáveis estão limitados a 
cerca de 32.000 elementos. Isto posto, nosso próximo 
aplicativo Agenda fará todo o trabalho de leitura e gravação, 
diretamente no disco rígido (Winchester) e dessa forma, O 
limite do número de registros estará praticamente relacionado 
com a capacidade do seu disco rígido. 


É importante você saber que o número do registro não é 
gravado no disco como ocorre em arquivos XBase (dBase, 
Clipper, FoxPro). Na realidade, o número do registro é O 
número de ordem de cada registro dentro do arquivo, isto é, 
1º, 2º, 3º,..., Total de Registros. 


VARIÁVEIS DEFINIDAS POR VOCÊ - 
EMPACOTAMENTO DE DADOS 


Se o meu querido leitor (Pentelhinho) é um cara atento, 
deve ter notado lendo a definição dos comandos Put e Get, 
que estes não aceitam mais de uma variável para gravação 
e leitura de dados. Isto é, não dá para escrever o código: 

Put 41, 1, Nome *35, Endereço *35, Bairro *25, Cidade 
*25 (O VB não aceita este código.) 

Strings, Integer, Single, Variant, etc, podem ser 
empacotados numa variável definida por você. O tipo foi 
definido como Pentelhos para reforçar a idéia de que você 
poderá usar qualquer nome para definir uma variável composta, 
desde que: | 

- não seja uma palavra-chave usada pelo VB; 

- Type... / End Type, esteja num módulo Global (não a nível 
de formulário ou de procedimento). 


A forma mais simples de solucionar este problema é 
empacotar essas 4 variáveis em apenas uma usando o 
método user-defined type [= Tipo Definido pelo Usuário] com 
Type... / End Type, num módulo Global, como segue: 

Type Pentelhos 

Nome * 35 As String 
Endereço * 35 As String 
Bairro * 25 As String 
Cidade * 25 As String 

End Type 


Agora falta definir o nome da variável composta: Global 
Clientes As Pentelhos 

O nome da variável composta, pode ser qualquer nome 
desde que não seja uma palavra-chave do VB. A declaração 
Global Clientes As Pentelhos poderia ser a nível de formulário 
ou a nível de procedimento usando-se Dim Clientes As 
Pentelhos. 


Banco de Dados dos Clientes da Firma ABC 







é 
3 
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Endereço * 35 

o | JoãodasSilva Rua Sobe Desce, 100 / 302 Ipanema 

[2] Pentelho de Sousa | Av. Semambetiba, 500 

[3] Pentelho de Souza | Av. Rio Branco, 10 / 1.001 Centro 

SS E ES 
1.000.000 Av. Rio Branco, 10 / 1.001 





VU 


aro * 25 | Cidade * 25 


Figura 5 


ESTRUTURAL 
— vigas, lages, pilares, sa- 
patas e treliças — R$ 25,00 


ANDAMENTO DE PROCESSOS - Para 
Advogados —- cadastro de autor/réu, tipo de 


causa e ação, comarca, andamento no tórum. 
Data de pagamentos, audiências, leilões, dis- 
tribuição, remessa ao tribunal, julgamento, etc. - R$ 25, 00 


comcampos parar istro de consultas/reconsultas, 
ciclo SVOlUtivO do tratamento, históricos, medi- 


e CONSULTÓRIO MÉDICO — Cadastro de pacientes 
camentos receitados, internações, etc. - R$ 25,00 


LANÇAMENTO 
DE R$ 52,50 POR R$ 32,50 
OU R$ 12,50 CADA 
HOME SERIES 


"HOME COOK - Cadastro de receitas separado por tipo de ago (peixe, 


carne bovina, frango, peru, mi etc.) e seleção dos pratos (salgados, 

doces, dietéticos, bebidas, sorvetes, etc. ). Super pre cb 

HOME BIBLIO - Controle completo de biblioteca. Cadastra livros, revistas, 

etc. Por título, ano de lançamento, autor, editora é campo para SINOPSE. 

HOME FONE - Agenda telefônica simplificada para cadastro Fone/FAX de 

seus amigos e/ou empresas. 

HOME GAME - Controle os cartuchos de video games por título, gênero, 

sistema, etc. 

HOME MAIL - Mala Direta, com cadastro por área de ços 

(editoras, médicos,oficinas, etc.). imprime atiquetas para endereçamento 

e bg por qualquer campo do arquivo. Pode ser usado como cadastro 
e clientes 

HOME MUSIC - Controle completo de suas coleções de K7/CDs/LPs por 

ritmos, autores, gravadoras, etc... campo para comentários. 

HOME RADIO - Para radioamadores. eras Alt rieo de QSO's com 

cadastro de “macanudos” e ir piadiçurs mite etiqueta para envio de 


cartões QSL's. Registrohoraloca/UTC, piada gra bob gcdoy 

Com campo para comentário QSO. 

HOME SOFT - Controle completo as que você possui, com 

campo para produtor, distribuidor, versdo, po, o, quanidad de disquetes, 

vencimento da taxa de manutenção, etc... 

HOME VIDEO - Livre-se dos guias e bla você mesmo os 

vídeos assistidos. Cadastro com títulodo vídeo, diretor, produtor, distribuidora, 
ento e data em que foi assistido, gênero, etc... Com campo 


ano de 
para SINOPSE. Super completo. 
áreas. Osistoma HOME SERIES 
cheio de programas 


OUTROS SISTEMAS: 
Contas a Pagar/Receber — R$ 25,00, Controle de Obras 
— R$ 25,00, Lista de Preços — R$ 25,00. 


DISPOMOS TAMBÉM MEDIANTE CONSULTA DE: 
Folhade Pagamento, Livros Fiscais, Correção Monetária, 
Vídeo Locadora, etc... 


bla amas paraas mais variadas 
y as) é acompanhado de um disco de 1.2 Mb 
AREWA como brinde. 
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Coluna do CD 





Por Clóvis Duarte 


Pois é, estive fora por algumas edições, devido a viagens 
de trabalho, mas agora retomo nosso papo sobre CDs. E 
vamos ver justamente um CD de jogo, que está fazendo o 
maior Sucesso: 


REBEL ASSAULT 
LUCAS ARTS 


Tudo bem, eu me entrego. De vez em quando não dá para 
resistir a um jogo, afinal, o micro fica na nossa frente 
“implorando” para que rodemos um software de 
entretenimento. Difícil não atender aos apelos da máquina. 

Escolhi esse CD para comentar porque ele traz algumas 
inovações, em termos de “jogabilidade”, que merecem uma 
observação mais atenta do usuário. 

Em primeiro lugar, vale a pena comentar que os novos 
lançamentos da Lucas Arts são estruturados de forma a não 
ocupar muito espaço do HD. Apesar dos drives de 540 Mb 
estarem se tornando arroz doce de festa, o ideal é que os 
programas rodem, a partir do CD, sem consumir espaço de 
instalação. 

Quanto ao jogo em sí, ainda não é desta vez que você verá 
animação full screen em uma resolução alta. O jogo é todo 
feito em 320 x 200, apesar das digitalizações baseadas no 
filme Star War, nota-se um empobrecimento das imagens, 
em relação ao jogo anterior: o X-Wing. Estou falando da 
animação das apresentações e entre as fases. 

No Rebel Assault você será o Rookie One, um piloto que 
precisa passar um período de treinamento em Mos Eisley, 
para então enfrentar as forças do imperador. E é aí que está 
a grande mudança em relação ao X-Wing, que é na verdade 
um simulador de vôo de espaçonaves. 

Neste jogo existem diversas missões que terão de ser 
cumpridas. Por exemplo: destruir um cruzador espacial, 
detonando determinados pontos na espaçonave. A grande 
diferença é que tanto os comandos direcionais da nave, 
quanto a trajetória da mesma são controlados pelo 
computador. Com isso, você só precisa se dedicar a mirarnos 
alvos e disparar os turbo-lasers. Nada de decorar aquelas 
combinações mirabolantes de teclas, ou dispor de visão em 
todos os ângulos. ; 

Dito assim parece que o jogo perde toda a sua graça, mas 
é uma mudança substancial, em termos de jogabilidade, 
principalmente para aqueles que se tornaram fas do X-Wing. 
O Rebel Assault deixa o universo dos simuladores, onde a 
realidade e a veracidade são as metas principais, para 
inaugurar um novo estilo de programa. Talvez esse seja um 
novo caminho a ser trilhado pelos sucessos do futuro, quer 
dizer, interativo, mas nemtanto. 
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Por esse caminho, os programas modernos serão mais 
filmes interativos do que jogos em computador. 


THE NEW GROLIER MULTIMEDIA ENCYCLOPEDIA 
GROLIER ELETRONIC PUBLISHING INC 


Uma das coisas que está na ordem do dia, da moderna 
tecnologia multimídia, são as enciclopédias digitais. Fruto de 
uma visão que pretende fundir imagens, sons e informação 
técnica num único suporte, o resultado até agora tem sido 
decepcionante. | 

Esse CD é geralmente encontrado nos Kits multimídia da 
Creative Labs e, não fosse por isso, dificilmente alguém se 
disporia a gastar alguns reais na aquisição desse produto. 

Claro que a primeira vez que vemos a foto de um pássaro 
e, ao mesmo tempo ouvimos seu canto, dá pra imaginar 
aonde isso tudo irá nos levar, dentro de mais alguns anos. 
Mas, passados os primeiros instantes de delírio imaginativo, 
caimos na real utilidade dessa enciclopédia: fazer volume 
junto aos outros CDs da CDteca. 

Em primeiro lugar porque a informação, que é o forte em 
qualquer enciclopédia, aqui não passa de um ou dois 
parágrafos e na línguainglesa. As imagens até que despertam 
algum interesse, mas o conjunto todo é superficial, fraco e 
sem uma eficiência funcional mínima. Após alguns minutos 
de consulta, o usuário certamente achará o tempo de retomo 
aos menus “uma eternidade”. 


OS GANHADORES DOS CDS 


E aqui estão os cinco ganhadores do CD-Share Fenasoft. 
Eles receberão em casa seus CDs. À próxima promoção será 
com o Rebel Assault. Recorte o selo da seção e concorra a 
três CDs. Boa Sorte. 


José Eduardo Marujo 


São Paulo - SP 


Fernando Santos Motta 
Macaé - RJ 


Antônio Carlos Monteiro 
Campinas - SP 


Francisco Tavares de Bragança 
Maceió - AL 


Paulo Cesar Pacheco 
Uberlândia - MG 
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€ ESC e É 
ligue voz (011) 414-3684 
Ligue dados (011) 414-2961 / 458-0816 


BANK SOFT 


Informática Ltda. 


Shareware, Jogos e Aplicativos para Micros PC/XT/AT. 
pede: Catálogo Gratuito : (011) 293-7957 - Caixa Postal : 14.181 - CEP : 02799-970 - São Paulo. 
Entre no nosso clube e receba todo mês os lançamentos que preferir sem qualquer preocupação em fazer pedidos - Peça folheto explicativo. 
Inovando novamente a Bank Soft está incluindo dicas em alguns de seus jogos - aproveite !! 
APROVEITE NOSSA PROMOÇÃO REAL 
Discos: 360Kb=RS 1,00 -  1.2Mb=RS 1,50 - 14Mb=R$2,00 
É ainda na compra de cada 15 discos, grátis 1 disco 1.2 Mb Gravado. 
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CONSERTE SEU PC 


Mesmo sem conhecimentos de ele- 
tronica pode o usuário consertar 
seu PC XT ou AT 286. 386 ou 486 
com as instruções detalhadas na fita 
de vídeo “Conserte Você Mesmo Seu 
PC” editada pela VIDEOBOOK Edi- 
tora Ltda.. Com a duração de 1 hora 
e 50 minutos, o vídeo orienta ao 
usuário a localização e substituição 
de partes defeituosas. São ainda 
incluídos verdadeiros segredos pro- 
fissionais tanto no que se refere 
ao conserto como no que se refere à 
manutençao preventiva. É muito 
importante o conhecimento por parte 
do usuario da matéria ministrada 
na fita, também para a própria utili- 
“zação do micro no dia a dia. O co- 
nhecimento de hardware adquirido 
permite melhor utilização do equi- 
pamento. O preço da fita é de R$ 
30,00 já incluso despesas de emba- 
lagem e correio. Envie cheque nomi- 
na! a Infodata Informática Ltda., 
Caixa Postal 1224, cep 01059-970. 
S.Paulo, SP, ou tigue-nos pelo fone 
(011) 259-8169. Temos ainda a fita 
“Monte V.Mesmo Seu Computador 
PO”, com 48 minutos, também : ao 
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R$ 2,00 a NADIA SOUZA | CONVÊNIO MÉDICO, ATIVO 


para: | | FIXO E OUTROS. 
NTA Informações grátis, O or 


Caixa Postal 6015 todo o Brasil ICENTERSOFT 


Favor informar o nome da Revista 
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Jogos & Aventuras 


As regras de criação 


Renato Degiovani 





Promessa é dívida e nesta edição darei as regras que 
devem ser obedecidas na criação de uma aventura. Como 
trata-se basicamente de texto, é importante prestar bastante 
atenção na forma como as palavras são escritas, ou seja, 
escrever corretamente com acentuação, afinal estaremos 
escrevendo aventuras em português. 

Como existe (ainda) um problema muito sério em relação 
a esse assunto e cada editor de texto utiliza um esquema 
próprio de codificação dessas letras, optei por um recurso 
bem original: você pode usar qualquer editor de texto e 
acentuar como quiser, desde que na primeira linha do texto 
da aventura exista uma tabela de sintaxe. Essa tabela é feita 
digitando-se as letras acentuadas, usadas pelo seu 
processador de texto preferido, na seguinte ordem: 


CçÁÃaEolióoUGÃafed0A405AaU 


O sistema de gerenciamento da aventura irá obter desta 
tabela a equivalência para as suas letras acentuadas, mas 
para funcionar direito é necessário que essa seja a primeira 
linha do texto. Outra coisa muito importante: o texto tem que 
ser gravado sem caracteres de controle. Geralmente os 
processadores possuem um opção de gravação do tipo 
“somente texto”. 


AS PÁGINAS 


Como expliquei na edição passada, uma página de texto 
pode ser entendida como um local da aventura ou uma 
situação em particular. Ela começa com um caracter “O” 
(arroba) e a seguir recebe a sua numeração no formato dois 
dígitos (00 por exemplo). 


Não há necessidade das páginas serem definidas em 
ordem crescente, nem estarem organizadas quanto à sua 
execução. É claro que um texto organizado ajuda muito a 
compreensão dos procedimentos e desvios e facilita na hora 
de alterar alguma coisa. 

No exemplo abaixo, temos a descrição de um pequeno 
exemplo que iremos montar, nesta edição. Lembre-se que há 
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um limite de aproximadamente 60 caracteres por linha, para 
que o texto tenha uma apresentação legível no monitor. 


WOO 

=== CAÇA AO OGRO - Parte 1 === 

Numa época muito distante, quando os monstros dominavam 
(6) 

planeta e a lei do mais forte imperava, um imenso Ógro 
vivia aterrorizando a pequena aldeia de Gozak. 


Sua missão será destruir o monstro e salvar o povo da aldeia. 
Boa sorte. 


Você está na entrada principal da aldeia. 
/Vã para o norte :01 
/Entre na aldeia :02 


Esta é a página 00 e é sempre a primeira a ser executada 
quando o sistema é carregado. Será usada normalmente 
para darmos as explicações sobre o jogo em si. 

O caracter “/” define os movimentos possíveis, para 
aquela página. O texto após o caracter será usado para 
descrever a ação possível e o número após os dois pontos 
indica para qual página o sistema irá se deslocar, se o botão 
referente aquela opção for pressionado. 

Esse sistema de botões é montado automaticamente, 
apenas pela presença dos caracteres “/” no final do texto da 
página. 


DESLOCANDO-SE ENTRE AS PÁGINAS 


Ao clicar um botão de movimento, o sistema passará 
imediatamente à apresentação do texto dessa nova página. 
É importante lembrar que, durante a construção do jogo, as 
páginas precisam existir para que o sistema possa 
efetivamente encontrá-las. 


À seguir temos a descrição de duas novas posições: 


Q01 

Por aqui não existe nada, apenas a floresta que circunda a 
aldeia. 

/Vá para o sul :00 
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Você continua entolado? 
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MONTE SEU PRÓPRIO AT 286, 386 OU 486. 
APRENDA VÁRIAS DICAS DE COMO TIRAR UM MELHOR 
PROVEITO DOS RECURSOS DO SEU MICROCOMPUTADOR. 

Com os livros do Eng. LAÉRCIO VASCONCELOS 


cano MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 


Agora a venda também nas principais livrarias de informática de São Paulo:BOOKWARE, LITEC E CULTURA. 
Estamos cadastrando livrarias e revendas em todo o Brasil. : 

Aborda: Montagem de XT e AT 286, 386SX, 386DX e 486. Fontes, gabinetes, NO-BREAKS, estabilizadores, aterramento, DRIVES, placas de vídeo e monitores 
CGA, HERCULES, EGA, VGA, e SUPER VGA. Placas MULTI-VO, IOSA, UDC e IDEPLUS. Piacas de CPU, expansão de memória, instalação de memória 
CACHE, uso de memória ESTENDIDA e EXPANDIDA, SHADOW RAM, SETUP, STRAPS, WINCHESTER, conversão de XT em AT, conversão de 286 em 396 
e 486, co-processador aritmético, instalação de MOUSE, MODEMIFAX, SCANNER, SOUND BLASTER, etc. | 


“IBM PC: DICAS E MACETES DE SOFTWARE VOL. 1 


Centenas de DICAS para você usar melhor o seu PCII! 

Você nunca viu tantas informações úteis sobre SOFTWARE em um único livro. A cada página é encontrada uma dica que pode ser imediatamente aplicada ao seu 
computador, resukando em maior velocidade, produtividade, segurança e facilidade de uso. E mais: Cópias de disquetes protegidos, uso de MEMÓRIA 
ESTENDIDA, EXPANDIDA, EMS, XMS, HMA, UMB, compactadores de arquivos, recuperação de discos formatados e arquivos apagados, programas : 
proteção do computador em nível de software, teste da CPU, de WINCHESTER e da placa de vídeo, comandos úteis do DOS, como criar da melhor forma seus 
E AUTOEXEC.BAT e CONFIG.SYS. E mais dezenas de outras dicas. | 


IBM PC: DICAS E MACETES DE SOFTWARE VOL. 2 


Aprenda mais outras DICAS muito úteis que o ajudarêio a esclarecer suas dúvidas. 

Mais dicas para você tirar o máximo proveito do seu micro. Fique por dentro das novidades do MS-DOS 6, saiba como acelerar o desempenho do 
WINCHESTER, dos DRIVES e do CD-ROM, usar a memória, recuperar arquivos apagados, melhorar os arquivos BATCH, duplicar a capacidade do winchester, 
editar trilhas e setores, BACKUP, programas gráficos, animações gráficas, comunicação de dados, ANTI-VÍRUS, acentuação, miscelânea de dicas e macetes e 
muitas outras grandes utilidades. 












SOFTWARE. DE DOMÍNIO PÚBLICO E SHAREWARE 


SOLICITE NOSSO CATÁLOGO GRATUITAMENTE E VEJA AS VANTAGENS DOS NOSSOS PROGRAMAS: 

1) São todos compactados com o popular compactador PKZIP, o que reduz o tamanho e o custo para os clientes. 

2) São fomecidos em disquetes novos e de BOA QUALIDADE. 

3) São todos acompanhados de um arquivo LAERCIO.DOC que traz as instruções para a instalação e sua Imediata utilização. 

4) São todos testados e homologados pela nossa equipe técnica. 

5) A maior vantagem: são cobrados por tamanho, e não por disco. Enquanto outras empresas cobram 3 discos por 3 programas de 120 KB, nós cobramos por 
apenas um único disco de 360 KB com os três programas juntos. 


Indique os livros desejados Recorte, preencha e envie para: 









( ) Estou enviando cheque nominal ao autor, Laércio Vasconcelos Laércio Vasconcelos 
( ) Desejo receber o catálogo de programas CAIXA POSTAL 4391, CEP 20.001-970 Rio de Janeiro, RJ 





Preços em REAL: Nome: 
COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 ( ) 27,50 REAIS Endereço: 
IBM PC: DICAS E MACETES DE SOFTWARE VOL. 1 — ()J2375REAIS Cidade; CEP: 
IBM PC: DICAS E MACETES DE SOFTWARE VOL. 2 ( ) 27,50 REAIS Telefone: 
Para sua segurança, envie em carta registrada. 
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02 

Você está no centro da aldeia. Os aldeões fugiram para a 
floresta. 

/Vá para o norte :00 

/Ná para o oeste :03 


“CRIANDO UM COMBATE 


Por página só é possível definir a presença de um 
personagem a ser combatido. Em nosso exemplo será O 
terrível Ogro. 


003 

Um imenso Ogro está bem na sua frente. E agora? 
/Vá para leste :02 

%Enfrente o ogro :04 


Note que a página foi usada agora apenas para descrever 
a existência do monstro. O caracter “%” é que define uma 
possível ação de combate e monta automaticamente O botão 
que ativa a luta. 

Se o jogador optar pelo combate, serão três as 
possibilidades: 


1- Jogador mata o Ogro: o sistema salta automaticamente 
para a página definida após o sinal “:”, 


2- Ogro mata o jogador: o sistema salta imediatamente para 
a página 99; 
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3- Nem Ogro, nem jogador morrem: o sistema permanece na 
página atual, permitindo a mudança de posição (fuga) ou a 
continuação do combate. 


A seguir, damos as conclusões para a morte do jogador e 


“para a morte do Ogro. 


WO4 
O Ogro está morto. Os aldeões estão retornando à aldeia para 
torná-lo chefe de todos os chefes. 


Grande aventura, heim! 
/Retome ao início :00 
DI9 


É, o Ogro foi mais esperto que você e retalhou-o completamente 
Mais sorte da próxima vez. 
/Volte ao início :00 
OO 
Os dois caracteres arroba indicam o final do texto e da 


aventura. Na próxima edição mostrarei como manipular as 
variáveis Força, Poder e Sorte. 


Até lá! 


Ds a O 
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oficial da rede brasileira 


de teleinformática - RBT. 


| São 180 BBS em todo o 
| Brasil - do Oiapoque ao 


Chuí. 
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| Nos BBS filiados a RBT | 
| você encontra uma con- | | 
o ferência dedicada exclu- | 
| ; . sivamente aos leitores da 
| | Então, o que você esta || MS, com promoções, con- | 
| n cursos, programas fonte, | 
| esperando dio sé BBS do mês, etc. | 
| ligar” nesta idéia? Além disso, você entra em | 
| contato direto com as | 
"| Contacte o seu BBS | | 
| au feras que fazem a revista. | 
| | preferido e verifique se || O time todo participa | | 
' | eleéfiliado a RBTese || Sesi proisto: Clóvis | 
El as no Duarte, José Geraldo, | 
aa abriu a conferência Magno Filho e Bob Pixel. | 






A coordenação da con- 
ferência, é Tfeita pelo 
próprio editor geral da 
revista: Renato Degiovani 


e er 





Micro Sistemas. 
Depois é só curtir e se 
divertir. 



















Access 2 for Windows 
Técnicas de 
Programação 

Greg Perry 

Axcel Books 

426 Páginas 


Indicado para usuários ini- 
ciantes e intermediários, o livro 
ajuda a desenvolver técnicas de 
programação através de 


exercícios e exemplos claros e . 


de fácil entendimento, onde o 
leitor aprende a criar passo a 
passo ma aplicação prática. Em 
pouco tempo o leitor estará 
usando variáveis, operadores 
matemáticos, funções e todo o 
poderoso ambiente do Access 
Basic ao escrever seus primeiros 
programas que rodam realmente 
e produzem resultados precisos. 
À obra traz ainda fluxogramas 
que ilustram exatamente como 
os programas estão sendo 
executados além de explicar, 
linguagem simples, problemas 
complexos. 


Dicionário de 
Programação 
QUE 

Editora Campus 
540 Páginas 


A obra traz todos os com 
ceitos mais importantes e 
significatuvos da programação 
em seus mais de 1.200 termos, 
com explicações objetivas e 
abrangentes de grande utilidade 
não só para programadores 





profissionais comotambém para 
outros usuários de computador. 
O dicionário traz conselhos úteis 
e práticos sobre o universo da 
programação, com notas, dicas 
e cuidados, abordando prati- 
camente todas as plataformas 
existentes no mercado, entre 
PC-compatíveis, Macintosh e 
sistemas de grande porte, com 
termos específicos das lin- 
guagens de programação 
consideradas mais importantes 
trazendo ainda exemplos de 
códigos de programação inclu- 
sive tabela de compatibilidade 
entre linguagens. 





Dominando o Turbo 
Pascal6 
Scott D. Palmer 


Editora Ciência Moderna 
612 Páginas 


Um texto prático e apro- 
fundado da programação em 
Pascal, este livro possibilitará 
ao leitor dominar a sintaxe e a 
estrutura básica de um pro- 
grama, trabalhar com tipos de 
dados simples, estruturados e 
definidos pelo usuário, elaborar 
procedures e funções, entre 
outros recursos. Inclui ainda 
uma exposição detalhadas dos 
tópicos relacionados à pro- 
gramação avançada, tais como 
a depuração e os erros mais 
comuns, imagens gráficas, som 
e música, programação portátil, 
que permite a criação de 
programas que podem ser 
facilmente transferidos para 


outros sistemas, além da 
programação baseada em 
objetos. Acompanha o livro um 
disquete com inúmeros exem- 
plos e listagens. 





Word 6 for Windows 


Técnicas Avançadas 
Bill Camarda 

Berkeley Brasil Editora 
1262 Páginas 


Um guia completo do Word 
for Windows 6, abrangendo seus 
recursos mais sofisticados de 
formatação, personalização e 
intercâmbio de dados com 
descrições detalhadas de todas 
as operações de processamento 
de texto que podem podem ser 
realizadas pelo programa. Às 
seções explicativas sobre os 
recursos de alto nível abrangem 
a criação de listas e tabelas, 
gerenciamento de fontes, 
recursos de impressão, 
PostScript e gerenciamento de 
arquivos. Inclue dicas e técnicas 
profissionais para otimizar 
trabalho com o uso de folhas de 
estilo personalizadas, gabaritos 
de documento, glossários, e 
macros. O livro mostra ainda 
como maximizar o uso do Word 
através de protocolos OLE e 
DDE, que permitem integrar. o 
Word a outros aplicativos no 
ambiente Windows. Acompanha 
o livro um disquete com 
documentos e exercícios men- 
cionados no livro além de 
diversas fontes True Type. 


LIVROS 


Windows Arquivos INI 


Guia de Referência 
Rubens Prates 

Novatec Editora 

32 Páginas 


Este guia prático e de fácil 


| manuseio (ideal pera ser levado 
| de um lado para outro) contém a 


descrição de todos os coman- 
dos nos arquivos CONTROL.INI, 


| PROGRAM.INI, WINFILE.INI, 
| SYSTEM.INI e WIN.INI do Win- 
| dows 3.1. Sendo de grande 


utilidade para quem necessita 


| configurar ou otimizar o Windows, 
| Ou mesmo para quem deseja 


aprofundar seu conhecimento 
sobre o Windows. À série “Guia 
de Consulta Rápida” completa 
com este lançamento 16 títulos 
abrangendo os principais soft- 
ware do mercado nas mais 
diversas áreas tais como Clip- 
per, CorelDraw Fonts e Symbols, 
MS-DOS 6.0 e 6.2, Pagemaker, 
Novell, entre outros. 


INFORMAÇÕES 


Axcel Books do Brasil Editora: 
Tel.:(021)221-8263-Fax: (021) 
252-563/ 

Ed. Ciência Moderna: Tel.: 
(021)589-8211-Fax:(021)589- 
6820 

Berkeley Brasil Editora: Tel.: 
(011) 831-7411 - Fax: (011) 
832-6506 

Ed. Campus: Caixa Postal 3896 
-CEP 20001-910-Rio de Janeiro 
-RJ 

Novatec Editora: Tel.:(011)959- 
6529 - Fax: (011)950-8869 


As editoras interes-sadas 
em divulgar seus livros 
na revista Micro 
Sistemas, devem en-viar, 
além do livro a .ser 


divulgado, um release e 
umacapasobressa-lente 
do mesmo, e assim que 

“forpossívelomesmoserá 
divul-gado 
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PRIMNERO CD-ROM NACIONAL COM 
PROGRAMAS EM PORTUGUES. 


ACP rr er A a A CR 


EDICAO CD-SHARE FENASOFT 


040 - 1DD 
042 - 1DD LEONARD SKETCH - CAD FOR WINDOWS P/ PROJETOS 
043 - 1DD PIXFOLIO - OTIMO CATALOGADOR DE GRAFICOS 
046 - 1DD  YOURWAY - AGENDA COMERCIAL FOR WINDOWS 360 programas shareware nacionais, 
055 - 1DD TIMING - AGENDA EM PORTUGUES PARA PROFISSIONAIS : : 
067 - 1DD ANIMAL QUEST - JOGO EDUCACIONAL SOBRE ECOSISTEMA 920 para Eletronica e Radio Amador, 
068 - 1DD WORD RESCUE - JOGO EDUCACIONAL DA APOGEE 480 para Diagnostico de Micro, 
074 - 1DD SISTEMA FINANCEIRO - COM FLUXO DE CAIXA - OTIMO 190 para Religiao 
080 -2HD DOOM - FANTASTICO EPISODIO EM MARTE EM 3 DIMENSOES giao, | 
081 - 1HD MAJOR STRYKER - A VOLTA DO GUERREIRO ESPACIAL 170 jogos para Dos e Windows, 
084 - 1HD EPIC PINBALL - UM FLIPERAMA EM 256 CORES NO SEU MICRO PR 
085 - 1DD NUMBERS - ANALIZE NUMEROLOGICA EM PORTUGUES 150 Educacionais, j 
086 - 1DD BCAD - CAD PARA ENGENHARIA NO ESTILO WINDOWS Kit BBS completo e funcional 
087 - 1HD BIO MENACE - UM AGENTE ESPECIAL NA CIDADE DO CRIME Selecao de Multimidia Internacional 
088 - 1HD HALLOWEN HARRY - MUITA ACAO EM UM LABORATORIO ESPACIAL 
PAGANITZU - UMA AVENTURA NAS PIRAMIDES ASTECAS 
BANNER - AGORA UMA VERSÃO PARA WINDOWS 
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PROMOCAO: DE R$47,00 POR R$39,00 


Os pedidos dos programas poderao ser feitos por telefone ou via correio atraves de vale postal ou cheque nominal a KANOPUS. O pedido minimo e de R$10,00. 
Incluir para despesa de envio R$2,40. Todos os programas sao fomecidos em discos 5 1/4. Em qualquer pedido, solicite o nosso catalogo de programas completo. 


KANOPUS INFORMATICA: DISTRIBUIDORA DE SOFTWARE DE DOMINIO PUBLICO E SHAREWARE 
Caixa Postal 8301 - CEP 80011-970 - Curitiba - PR - Fone:(041) 222-0277 - Fax: (041) 252-2087 h.c 


Dê uma chance ao sucesso “—fVMicro 
Sistemas 


Onde está aquele super-fantástico-incrível programa que você fêz? E aquela rotina maravilhosa? Estão . 
guardados numa gaveta? Ninguém, além de você, conhece esse trabalho? 

Não perca a oportunidade de mostrar o quanto você sabe sobro informática, programação, linguagens, 
processadores, etc. | 
A revista Micro Sistemas é a única publicação nacional que abre espaço para trabalho feitos no Brasil. Ela 
é o único veículo editorial que publica colaborações dos seus leitores. 
Esta é a principal razão do sucesso imbatível da revista, afinal, grande parte dos profissionais com projeção 
nacional neste mercado, foram ou ainda são colaboradores da Micro Sistemas. 
Então, o que você está esperando para fazer parte deste time? 


COLABORAÇÕES: 

Você pode mandar qualquer tipo de matéria (programas, artigos, crônicas, etc). Para que seu trabalho seja 
avaliado por nossa equipe é imprescindível que: | 
- Os textos, listagens, ilustrações, desenhos, etc venham em disquete 5 1/4 padrão IBM PC; 
- OS programas devem incluir a versão compilada e exemplos (se for o caso); 
- cópia impressa do texto e das listagens; 

- aJtorização impressa e assinada, para a publicação do material; ; 
currículo do autor. 

- Envie p/ Enter Press Editora S/A - Rua Lourenço Ribeiro, 124-A - CEP 21050-510 - Rio de Janeiro - RJ 





O material enviado para a revista não será devolvido. Os autores das matérias publicadas 
receberão uma assinatura anual de Micro Sistemas. 
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Nesta edição apresento duas animações, sendo esquema de organizar um banco de telas que dá um banho 
uma delas com lances de profundidade. É a estrela giratória em qualquer software comercial. Não tem para Corel, nem 
que, se bem sincronizada irá proporcionar um resultado Photo Shop e nem Photo Styler. Desta vez o pessoal arrasou. 
muito legal. O robozinho também tem lá sua graça, mas a Se você ainda não pegou o Bitmap 2, num BBS 
estrela ganha de dez a zero. próximo de seu telefone, tá esperando o que”? 

E por falar em dez a zero, o disco Bitmap 2 está 
dando um banho de criatividade (modéstia à parte). Tem 
uma super matéria sobre imagens colorizadas no computador, 
usando o incrível Graphos Ill SuperVGA (é a versão 6.0 e que Bob Pixel 
está também no disco 2). A nova versão do Graphos tem um 





ANIMAÇÃO 
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taglines 


À primeira rodada do concurso de taglines chegou ao fim 
e o vencedor, com a frase mais engraçada e original foi o 
Cristiano Viana, do O Point BBS. Escolhida pelo pessoal 
técnico da revista, o Cristiano receberá uma assinatura anual 
da MS e o Dax Faulstich, sysop da BBS, ganha o direito de 
indicar alguém para a segunda assinatura. 

A Tagline vencedora é a seguinte: 


* Não sou barrigudo, tenho é memória virtual... 
Cristiano Viana - O Point BBS 


Abaixo damos mais algumas taglines que foram 
consideradas como “pérolas” do humor. Valeu pessoal. O 
próximo concurso de tags já está no ar, com algumas 
mudanças. Confira, acessando a conferência MS, no seu 
BBS preferido. 


* Não se preocupe com o amanhã pois o amanhã acaba 
depois de amanhã... 
Alessandro Correa - ABYSS BBS 


* A Tagline saiu, quer deixar recado”? 
Alessandro Correa - ABYSS BBS 


* Quem planta MACONHA colhe CANA 
Jorge Eduardo - Louca BBS 


* Tempo é dinheiro! O usuário de Windows morreu de fome! 
Alexandre Santos - Abyss BBS 


* Dirigido por mim. Guiado por DOS. Sacaneado pelo Stacker. 
Edgard Castro - Vixen BBS 


* Sou masoquista, rodo Windows em XT !!! 
Daniel Rebelo - Fox BBS 


* O primeiro NE-Z8000 a gente nunca esquece... 
Daniel Zamora - InfoNet BBS 


santa cvaniasva secs. <= TAG:em Bralle 
Rogério de Oliveira - Sul BBS 
* Abeleza não está apenas nas curvas, está também nas vias 


x 
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Resultado do concurso de 


de acesso. 
Wagner Peixoto - Friend's BBS 


* ECONOMIA: Ciência humana metida a exata! | 
Pedro Cunha - Navigator BBS 


* Eu, zipado?! Não, eu sou baixinho mesmo... 
Ari Castro - Louca BBS 


* Preciso do arquivo PARADISE.COM. Enviar p/ 
devilWpurg.hell.org.br 
Ari Castro - Louca BBS 


* Os mortos que ainda não morreram estão sempre correndo 
perigo de vida. 
Ari Castro - Louca BBS 


* Para ouvir o trilha sonora original desta tag aperte F13 
Paulo Assis - CD-BBS 


* Deus só fez o mundo em 7 dias porque usava uma 
plataforma multitarefa! 
Anderson Kenji - Delta BBS 


OS BBS MAIS QUENTES DA REDE 


Mais e mais BBS estão abrindo a conferência MS. Seo seu 
ainda não tem, cobre do sysop. A seguir, o pessoal que já 
confirmou sua presença: 


Brain Strike BBS Daniel Reis Niterói/RJ 
Morada do Sol Fernando Gozetto Araraquara/SP 
Duck BBS Luiz Suzuki “São Paulo/SP 
SEVEN BBS | Alexandre Neves Belo Horizonte/MG 

- CONSULT BBS Antônio Márcio Fortaleza/CE 
PRONET BBS Francisco José Papi Erechim/RS 
Triex | Alexandre Macedo Belo Horizonte/MG 
EDUCNET BBS Erasmo Gagliardi Goiânia GO | 
BBS da Amizade Jorge Modolo São Caetano Sul SP 


ATENÇÃO SYSOP: se o seu BBS já abriu a conferência Micro 
Sistemas, mas ainda não apareceu na lista, mande uma mensagem 
ao Renato Degiovani, informando os dados da sua BBS. 
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É 
| E : 
Quem quer ficar "por dentro" da Além disso a revista Micro 
informática nacional não pode Sistemas é a única publicação que | | 
) deixar de ler Micro Sistemas. tem um espaço dedicado ao : | 
Sempre atenta aos acontecimentos Shareware e à mídia magnética. | 
e tendências, Micro Sistemas é a Publica ainda mensalmente a 
revista que mais reflete o que seção Pesquisa onde os leitores | 
7 acontece no mercado brasileiro. apontam os programas mais | 
+ E Feita por brasileiros e para usados dentre jogos, aplicativos e 

brasileiros, Micro Sistemas traz utilitários além das marcas de 

sempre em suas páginas os disquetes mais confiáveis. 

assuntos mais quentes do Por tudo isso você não pode deixar 





momento, programas em diversas de ler Micro Sistemas. Não perca 
linguagens, rotinas, livros, cartas mais tempo! Garanta mensalmente 
doe leitores, etc. o seu exemplar fazendo uma 
assinatura anual de MICRO 
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| SISTEMAS por apenas: 

| ; 

1 ANO - R$ 45,00 

| 2 ANOS - R$ 90,00 
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PESQUISA MS 


SUA OPINIÃO VALE DUAS ASSINATURAS 


Você dá a sua opinião sobre os melhores programas de computador 
do mercado e concorre automaticamente a duas assinaturas anuais da 
primeira revista brasileira de microcomputadores. 


PROCESSADOR DE TEXTO 


MS Word 
Wordstar 
Write 


Wordperfect 


Redator PC 
Carta Certa 
Chiwriter 
Fácil 
Unitexto 
Panglos 
Bestword 


PLANILHA 
Lotus 1-2-3 


Quatro Pro 


140/2260 
70/1325 
20/220 
20/200 
10/190 
0/50 
10/40 
0/30 
0/30 
0/20 
0/10 


190/2188 
120/1380 


SISTEMA OPERACIONAL 
DOS 360/4200 
Windows 100/1585 


0S2 10/50 
Unix 0/40 


ANTIVÍRUS 

Viruscan 160/1860 
NAVY. 10/515 
CPAV 20/260 
MSAV 20/160 
TNT 10/50 
TBAV 10/30 
Cure 0/10 


COMPACTADOR 


Excel 
Works 
Acess 


30/490 


ARJ 140/1730 
20/90 


PKZip 10/1470 
LHA 20/160 
Stacker 0/70 


LINGUAGEM ICE 0/60 


Basic 
Visual Basic 





EDITOR GRÁFICO 













Clipper 20/610 Banner - 20/290 
C 20/280 Harvard Graphics 10/280 
Pascal 10/250 Graphos ill 20/225 
Cobol 30/180 Paint Brush 10/140 
Assembler — 20/150 DrGenius | 10/100 
Dbase 20/70 Autodesk Animator 

0/70 

Print Master | 10/60 
DESTAQUE ESPECIAL Power Point 10/50 


Modplay 


Print Shop 10/50 





Responda às questões de acordo com a sua preferência. 
No caso de usar mais de um programa de mesma classe, 
escolha apenas aquele que julga ser o mais adequado para 
o seu uso. Não importa a origem do software. Escreva de 
forma clara e legível o nome do programa. Remeta para 
ENTER PRESS Editora Ltda 


Nome: 
Endereço: | 
Cidade: | UF: 

CEP: Nídeo: 



















ASSINATURA ANUAL 
Raimundo Rodrigues de Souza - Fortaleza - CE. 
Sidney Lima Junior - Rio das Flores - RJ 
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CAD / EDITOR 3D 
Autocad 
3D Studio 


50/790 
60/300 
Professional Cad 10/60 
3D Image 10/60 
Microstation 0/50 
Ted 3D 0/10 





UTILITÁRIOS 
PCTools 
Norton 
XTGold 
Sidekick 
Becker Tools 
Foxy Tools 


120/1665 
150/1510 
50/360 
20/160 
0/80 
0/70 





DESKTOP PUBLISHING 
Corel Draw 70/1170 
Page Maker 50/810 
Ventura 20/330 
Envision Publish 10/90 
Fantavision 20/90. 
MS Publisher 10/50 





MELHOR PIOR 
Maxell...110/2330 Nashua ... 100/2120 
Verbatin . 20/670 Verbatin .. 40/660 
VAT 
20/150 Precision. 0/220 
.. 10/100 Basf 20/140 


Memorex 70/90 
ABC Systems 60/70 





Processador de texto: 
Planilha eletrônica: 


Linguagem de programação 


Utilitários: 
Sistema Operacional: 


| F19 10/145 


| Battle Chess 


































JOGOS 
Prince of Persia 20/695 
Wolfestein 3D 70/6020 
Tetris -50/540 
Domm 130/420 
X-Wing 40/3170 
Chess 20/265 
Prince of Persia Il 60/255 
F15 10/190 
GP 20/180 
Indy 500 10/160 


Blockout 
Xingu | 
Monkey Island 
Stunts 10/135 
World Circuit 10/125 
Out of this World 20/125 
Angra | 10/115 
Free Cell 10/110 
Chessmaster 10/110 
Amazônia 10/110 
Alone in the dark 20/110 
Indiana Jones 0/100 
fTh Guest 20/100 
Sim City 0/90 
10/80 
10/80 
20/80 


20/145 
20/140 
50/140 


Arkanoid 
Lemmings 
Loom 10/70 
Sokoban 10/05 
CarmemsS.Diego 0/60 
Cyrus 10/60 
Simpsons 10/60 
Nautilus 10/60 
Cicles 0/40 
Golden Axe 0/40 
Wing Commander 0/35 
Karateka 0/35 
Sim Farm 0/20 




















Anti-vírus: 
Compactador: 
Editor Gráfico: 
Desktop Publishing: 
Cad/editores 3D: 

















Jogo 1: Dm 


Jogo 2: INN 


Outro: 





Melhordisquete:. . 1 


Piordisquete: Dl ————— 
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DRCT CSA 





| Caro Aopuigo: 
Lara nós, dee ColorNet Sofhueare 3 COCÊ É O RAS vnprortcnde. Lenos. (03 clones nocedades de peso Le 
MOLA ÁUCC, dep es so/lerare ou er Leerdiceare, Cdpecealimente perca vocês! 
De Cg0d apticadivos e sisters derros cs cillones e cs melhores (ileliã 
Lugo SOULS pedidos pelo COLPELO, felefone OC DO preférir corcedie-nos. de fon. de Sie UUDUlE. 
Lennbre “e. W//28) die Golos Netos NAO VEMOS. chrentes, Pasernos CIUGOS 


NOVIDADES NOSSOS PREÇOS 


DZ IATE P/ PC “AMIGA 


ELF MANIA oD SAM & MAX Aplicativos - R$ 5,00 
SKYD MAX 5D ALONE IN THE DARK Demos - R$ 4,00 
CRUISE FOR A CORPS 5D BENEATH ASTEEL SKY Jogos - R$ 2,00 
PINBALL ILLUSION oD GABRIEL KNIGHT (por disco, 
TANDE KIRkK RABBIT 3D AL-QADIN discos inclusos no 
WORLD CUP 94 2D LANDS OF LORE “PC 
OCTAMED V 2D TIE FIGHTER 
| SENSIBLE SOCCER 94 2D WING COMMANDER | Aplicativos - R$ 6,00 
CRAZY FOOTBAL 2D WING COMMANDER )( Shareware - R$ 2,00 
PERIHELIO 5D WING COMM. SECRET MISS.| Jogos - R$ 3,00 
 ÂNMR NUS 5D WING COMMANDER PRIVATEER (por disco, 
Rss O |NNE COMA GE Em da fios rela ro peço 
INE ASADEMO 5D WING CONM SEGA OPER| —MSK, APPLE & ZX SPECTRUM 
FRED ( (AGA) 2D É ; k f 
REIMDAL (AGA) ID STRIKE COMMANDER PT Re 
FANTASY FLY (AGA) 3D COMMANCHE Jogos - 200 - “1,00 -*100 - 
BART SIMPSONS x WORLD (AGA) 5D MASTER OF ORION DO 
IREARE OF DEAR (AGA) SD E cado * - Preços por fítulo. (Não incluso os 
DOOM “DISCOS 
SPACE HULK 
PINBALL FANTASIES DD - R$ 0,80 


EPIC PINBALL HD-R$ 1,00 
EMPIRE SOCCER 94 DD - R$ 1,00 *Dispesas com correio 


CANNON FOODER HD - R$ 2,00 R$ 2,50 até 15 discos. 


| FORMAS DE PAGAMENTO 


| Envie cheque nominal à Nelson Salles de Siqueira ou faça depósito na CX :003404-9 AS:0663 BANESPA 
". São Paulo; no valor do seu pedido acrescentando R$ 2,50 para dispesas de correio. 
OBS: No caso de depósito em CK envie-nos uma cópia do recibo do depósito para confirmação. 


PEDIDOS POR TELEFONE: Entre em contato conosco em nosso telefone (011) 982-1396, 
atendemos 24 horas por dia inclusive Domingos e Feriados. 


R. Barão de lIftapefininga, 297 - 90 and - Cj) 907 
Centro - São Paulo - SP -CEP:01042-000 
F:982-1396 - Próximo ao Metrô Republica. 

















CullConmeckiom sos -shoppisg onte 


O sistema de BBS mais avançado do planeta, agora no Brasil para você ! ! 


Esqueça tudo o que você já viu sobre BBS, e conheça o 


EvliConnection, um sistema de BBS super avançado uti- a 
odando 


lizando o protocolo gráfico de 4º geração RiIPscrip, que The Major BBS, o 
além de melhorar a velocidade de transmissão, permite a gerenciador Pó 
visualização de gráficos com alta-resolução no estilo do Ga SS 


Prodigy e América Online. Você não precisa mais decorar 
nenhum comando, apenas clicar com seu mouse. 





Uma completa Biblioteca de Arquivos contendo uma 
grande variedade de programas demos e shareware nas 
mais variadas categorias, Jogos, Utilitários, Fontes, Anti- 
Virus, Editores Desktop, Educação, Multimídia, 
Comunicação, Programação, Arquivos de Som, e tudo O 
que você imaginar para DOS e WINDOWS. Também uma 
ampla Biblioteca: de Imagens Digitalizadas, dos mais =" a TA, 
diversos assuntos, inclusive fotos XXX-Rated. E es 


.«.. Biblioteca de Arquivos 
de fáci! utilização, com 
pesquisas por palavras 
chave e marcação para 
download posterior. 





Um avançado sistema de Correio Eletrônico (E-mail), com 
suporte para envio de Arquivos Anexados, Cópias 
Carbono, Listas de Distribuição, Aviso de Recebimento, 


... com uma interface 
totalmente gráfica, com 


Editor de Texto Full Screen com todos os comandos no suporte para mouse, 

seu vídeo através de botões. Teleconferências Online dir afago 
a E E s e a cessi e 

para você bater papo com outros usuário, expandindo seu ao da con 


conhecimento e ampliando o seu relacionamento com complicados. 
pessoas que tenham o mesmo interesse. 





O SHOPPING OnLine, onde você pode adquirir produtos semear 
e serviços dos mais variados tipos com descontos, sem 
precisar sair da sua casa ou do seu escritório. Através do 
seu próprio computador, você faz a cotação de preços, 
escolhe onde deseja comprar, a forma de pagamento e 
o método de entrega. Você recebe o produto rapidamente 
no seu endereço, sem burocracia, filas e com toda a E". 


comodidade. 









Corr tight 1997 - Datas ato Pull cast porno, Ermo, 
Shopping OnLine, 

aqui você pode comprar 
diversos produtos, 

a preços reduzidos, 
num piscar de olhos. 





Você ainda tem a sua disposição uma Central para Distribuição de FAX, pode participar de Concursos com 
vários premios, serviço de Boletins & Novidades e muito mais . 


PuliCcommeciiom bbs é Praça odior 


BBS: (011) 440-7344 e 440-7204 
Caixa Postal 108 - Santo André - SP - 09001-970 - Tel.: (011) 412- 1610 - Fax: (011) 444-1167 








